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ABSTRACT 


A  finite-element  method  (using  the  Galerkin  formulation) 
and  a  truncated  spectral  method  are  applied  to  find  numerical  solutions 
to  the  three  non-linear  partial  differential  equations  describing  a 
two-level  quasi-geostrophic  model  atmosphere  on  a  (3-plane.  This  work 
was  undertaken  to  provide  a  vehicle  with  which  the  author  could  study 
the  finite-element  method  and  its  application  to  problems  of  meteoro¬ 
logical  interest.  A  relatively  simple  meteorological  problem  was 
chosen  to  allow  concentration  on  the  method  and  its  application  rather 
than  complex  physical  interactions. 

With  the  finite-element  method,  bi-linear  basis  functions 
defined  on  a  variable  resolution  grid  are  used  while  sinusoidal  basis 
functions  are  used  with  the  spectral  method.  The  domain  of  the  problem 
is  a  channel  of  length  2.8  x  lO^m  and  width  4.4  x  lO^m  with  a  free-slip 
wall  boundary  condition  applied  at  the  north  and  south  boundaries  and 
periodicity  assumed  in  the  x-direction.  The  grid  consists  of  a  central 
portion  with  uniformly  high  resolution  and  a  uniformly  changing  resolu¬ 
tion  away  from  this  sub-domain.  A  second-order  Adams-Bashf orth  time 
integration  scheme  is  used  with  both  numerical  techniques. 

Parallel  integrations  of  up  to  48  hours  duration  for  a  set  of 
four  cases  are  presented  and  compared,  using  the  spectral  solution  as  a 
highly  accurate  standard.  In  the  uniform  resolution  sub-domain,  the 
finite-element  solution  achieves  a  maximum  SI  score  of  under  25  for  both 
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height  and  thickness  fields  in  three  of  the  cases.  Values  of  lower  than 
30  are  generally  considered  to  be  near  perfect  forecasts  in  operational 
weather  forecasting.  However,  it  is  to  be  noted  that  in  this  study,  a 
highly  simplified  model  is  used  and  integrations  are  done  from  initial 
conditions  with  no  inherent  error.  In  the  fourth  case,  numerical 
instability  occurred  due  to  the  rapid  growth  of  spurious  short-wave¬ 
length  waves  generated  near  the  boundaries.  Investigations  revealed 
that  these  waves  were  being  produced  by  the  inaccurate  evaluation  of 
normal  derivatives  near  and  on  the  boundaries.  A  possible  method  for 
overcoming  this  problem  is  discussed. 
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CHAPTER  1 


INTRODUCTION 

An  accurate  method  for  producing  a  weather  forecast  has 
been  an  elusive  dream  throughout  much  of  man’s  history.  The  abundance 
of  folk  beliefs  (Hornstein,  1978)  available  for  predicting  the  weather 
indicates  the  importance  man  has  attached  to  weather  forecasts. 

During  this  century,  much  attention  has  been  focussed  on  using 
numerical  methods  to  solve  the  hydro-dynamical  equations,  thereby 
producing  a  weather  forecast  (Bjerknes,  1904;  Richardson,  1921; 

Charney  et .  al.,  1950;  Cressman,  1958,  1963;  Shuman  and  Hovermale, 

1968;  Bourke,  1972,  1974;  Machenhauer  and  Daley,  1972). 

In  recent  years  (Wang  et.  al.,  1972;  Cullen,  1973,  1974a, 
1974b,  1976,  1979;  Staniforth  and  Mitchell,  1977,  1978;  Staniforth  and 
Daley,  1977,  1978,  1979),  the  finite-element  method  (FEM)  has  been 
applied  to  the  problem  of  numerical  weather  prediction.  The  develop¬ 
ment  of  larger  and  faster  computers  has  made  possible  the  use  of  the 
FEM  for  the  prediction  of  large-scale  atmospheric  flows.  The  FEM 
enables  one  to  use  a  grid  with  variable  spacing  between  grid  points 
with  relative  ease.  This  is  a  distinct  advantage  over  the  finite- 
difference  methods  which  have  been  used  previously. 

Numerical  weather  prediction  began  when  Bjerknes  (1904) 
recognized  that  the  primitive  equations  of  meteorology  formed  a  system 
of  non-linear  partial  differential  equations  which  could,  in  principle, 
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be  solved  to  forecast  the  subsequent  states  of  the  atmosphere  from  a 
known  initial  state.  He  also  recognized  that  the  system  did  not  have 
an  analytic  solution  and  that  the  available  data  were  inadequate  to 
specify  the  initial  conditions.  Holton  (1972)  shows  that  the  primi¬ 
tive  equations  consist  of  the  momentum  equations  in  the  horizontal 
(plane),  the  thermodynamic  energy  equation,  the  continuity  equation, 
the  hydrostatic  approximation,  and  the  equation  of  state.  This  system 
of  equations  forms  the  basis  of  large-scale  numerical  weather  predic¬ 
tion.  Richardson  (1921)  attempted  the  first  numerical  integration  of 
these  equations  using  a  finite-difference  method.  Unhappily,  his  fore¬ 
cast  took  many  months  to  produce  and  was  in  error  by  several  orders  of 
magnitude . 


The  development  of  the  electronic  computer  in  the  1940's 
allowed  Charney  et.  al.  (1950)  to  perform  the  first  successful  numeri¬ 
cal  weather  forecast.  They  integrated,  in  time,  the  baro tropic  vorti- 
city  equation  which  is  a  simplified  equation  derivable  from  the  primi¬ 
tive  equations.  By  simplifying  the  primitive  equations  using  certain 
assumptions  about  the  atmosphere,  one  may  obtain  a  system  of  equations 
which  is  more  easily  solved.  Holton  (1972)  describes  the  assumptions 
necessary  to  eliminate  sound,  gravity  and  inertia  waves.  Charney  et.  al. 
(1950)  used  the  most  simplified  form  of  the  primitive  equations  for 
their  integration. 

The  field  of  numerical  weather  prediction  has  expanded 
rapidly  since  the  first  successful  integration,  with  many  more  compli¬ 
cated  finite  difference  models  being  developed  (Cressman,  1958,  1963; 


' 
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Shuman  and  Hovermale,  1968;  Howcroft,  1971).  Beginning  in  the  late 
1960’s,  the  use  of  the  spectral  method  for  integrating  the  primitive 
equations  was  investigated  (Robert,  1966,  1970;  Elsaesser,  1966; 
Eliasen  and  Machenhauer,  1970;  Baer  and  Alyea,  1971;  Bourke,  1972). 
Efficient  spectral  models  were  not  possible  until  Orszag  (1970) 
described  the  use  of  transforms  to  allow  the  efficient  evaluation  of 
the  product  terms  in  the  primitive  equations.  Since  then,  the  spec¬ 
tral  method  has  been  used  with  success  in  numerical  weather  prediction 
(Daley  et.  al.,  1976;  Bourke,  1974). 

In  the  1970' s,  the  FEM  was  first  introduced  to  numerical 
weather  prediction.  Early  work  (Wang  et .  al.,  1972;  Cullen,  1973, 
1974a),  considered  highly  simplified  atmospheric  models.  Recently, 
models  using  the  primitive  equations  defined  over  the  northern  hemis¬ 
phere  have  been  integrated  using  the  FEM  (Staniforth  and  Daley,  1978, 
1979;  Cullen,  1979).  Staniforth  and  Daley  (1979)  have  found  the 
finite-element  model  produces  forecasts  as  accurate  as  those  of  the 
operational  spectral  model  even  though  the  finite- element  model  does 
not  contain  many  of  the  physical  processes  present  in  the  spectral 
model. 


In  this  thesis,  a  FEM  is  used  to  solve  a  set  of  partial 
differential  equations.  These  equations  mathematically  describe  a  two- 
level  baroclinic  model  of  the  atmosphere  on  a  8-plane.  (The  model  is 
fully  described  in  Chapter  2.)  The  equations  of  this  model  atmosphere 
are  also  solved  using  a  spectral  method.  This  solution  is  highly 
accurate  and  is  used  to  evaluate  the  accuracy  of  the  solution  by  the 
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FEM.  In  Chapter  5,  the  solutions  using  both  methods  are  presented 
and  compared.  Although  the  meteorological  problem  under  consideration 
is  relatively  simple,  this  approach  provides  a  good  framework  within 
which  my  supervisor  and  I  could  learn  about  and  apply  the  FEM. 
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CHAPTER  2 

A  DESCRIPTION  OF  THE  MODEL  ATMOSPHERE 

2.1  The  Model  Equations  and  the  Domain 

The  intent  of  this  thesis  is  to  study  the  application  of 
the  FEM  to  the  prediction  of  synoptic  scale  atmospheric  flows. 
Consequently,  a  model  atmosphere  has  been  chosen  in  which  such  flows 
are  possible.  The  quasi-geostrophic  two-level  model  was  selected  as 
it  is  the  simplest  synoptic  scale  model  which  includes  baroclinic 
effects.  This  model  has  been  used  in  the  past  to  study  atmospheric 
flows  (e.g.  Phillips  (1951),  Holton  (1972),  Stone  (1974),  Held  (1975)) 
as  although  it  is  a  relatively  simple  atmospheric  model,  it  simulates 
many  atmospheric  processes  well. 

A  model  atmosphere  which  allows  baroclinic  effects  has  been 
employed  because  the  baroclinic  conversion  of  potential  to  kinetic 
energy  is  a  major  process  in  the  development  of  synoptic  scale  storms. 
The  total  potential  energy  of  a  system  is  the  sum  of  its  internal 
energy  and  its  gravitational  potential  energy.  Lorenz  (1955)  defines 
the  available  potential  energy  (APE)  of  a  column  of  the  atmosphere  to 
be  the  difference  between  the  total  potential  energy  and  the  minimum 
total  potential  energy  which  could  be  achieved  by  an  adiabatic  redistri¬ 
bution  of  the  mass  of  that  air  column.  The  APE  is  that  portion  of  the 
total  potential  energy  which  is  available  for  possible  conversion  to 
kinetic  energy  (KE) .  This  conversion  is  often  an  unstable  process, 
i.e.  baroclinic  instability. 
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In  the  quasi-geostrophic  two-level  model,  the  atmosphere 
is  divided  into  levels  as  shown  in  Figure  2.1.  Pressure  (p)  is  used 
as  the  vertical  coordinate.  The  streamf unction  (ip)  is  defined  at 
levels  1,  2  and  3  and  the  vertical  motion  (w)  at  levels  0y  2  and  4 
is  considered.  Levels  1  and  3  are  the  two  levels  of  prime  importance, 
from  which  the  model  derives  its  name.  The  pressure  difference 
between  levels  1  and  3,  Ap,  is  500  mb  for  this  model.  Pedlosky  (1979) 
has  shown  that  this  model,  with  one  small  additional  assumption,  has 
the  same  dynamic  equations  as  a  two  layer  model,  in  which  the  layer 
between  levels  0  and  2  is  assumed  to  have  a  certain  uniform  density 
and  the  layer  between  levels  2  and  4  is  assumed  to  have  another  uniform 
den  s  ity . 


Prior  to  presenting  the  model  equations,  a  few  definitions 
will  be  given.  When  the  $-plane  approximation  is  used,  the  earth  is 
approximated  by  a  plane  tangent  to  the  earth  at  some  latitude  ^o,  as 
shown  in  Figure  2.2.  On  this  plane,  a  three-dimensional  right-handed 

A 

Cartesian  coordinate  system  is  defined.  The  unit  vector  i  points  in 

A 

the  x-direction,  which  is  east,  while  the  unit  vector  j  points  in  the 

A 

y-direction,  which  is  north.  The  unit  vector  k  points  vertically  in 
the  direction  of  lower  atmospheric  pressure.  The  origin  of  the  coordi¬ 
nate  system  is  defined  to  be  at  the  point  x=0,  y=0,  p=  1000  mb. 

A  relation  between  latitude,  <f>,  and  distance  along  the  y-axis  may  be 
written: 

v— v  =  (2.1) 

-  -  o  u 

where  a  is  the  mean  radius  of  the  earth  and  y  is  the  value  of  y  at  ^o. 


a «,  k  *«  *  .  )«•■*'  •  «m*  •*  14  't0K  *“  AW>law  43  ;0 
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The  plane  in  Figure  2.2  is  assumed  to  have  a  width  of  L  /2 
so  the  range  of  y  is  [0,  L^/2].  This  definition  for  the  width  of  the 
plane  is  made  for  consistency  with  the  expansion  functions  used  with 
the  spectral  method  discussed  in  Chapter  3.  The  plane  is  assumed  to 
have  a  length  L  .  More  precisely,  it  is  assumed  that  the  solution 
to  the  model  equations,  derived  later  in  this  chapter,  is  periodic  in 
x  with  wavelength  L  .  This  length  of  the  domain  is  also  chosen  for 
consistency  with  the  expansion  functions. 

The  particular  values  of  L  and  L  used  are  chosen  by 

x  y 

considering  the  type  of  atmospheric  motions  to  be  studied.  As  mid¬ 
latitude  synoptic  scale  motions  will  be  considered  in  this  thesis, 
is  chosen  to  be  45°N  latitude.  The  domain  is  chosen  so  that  L  /2  = 

y 

4.4  x  lO^m,  which  is  approximately  55°  of  latitude  on  the  earth.  This 
width  is  chosen  by  considering  the  meridional  extent  of  typical  mid¬ 
latitude  long  waves  on  the  earth.  It  is  similar  to  that  used  by  others 
(Cullen,  1976;  Grammeltvedt ,  1969).  The  chosen  length  of  periodicity 
is  =  2.8  x  10^m  which  is  essentially  the  length  of  the  latitude 
circle  at  45°N. 

The  Coriolis  parameter,  f,  is  defined  by: 

f  =  2 n  sine})  (2.2) 

where  ft  is  the  earth's  angular  velocity.  If  only  the  first  two  terms 
of  a  Taylor  expansion  of  f  about  y^  are  retained,  one  obtains: 

f  =  f  +  B(y-V  ) 
o  o 


(2.3) 
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where : 
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df_  _  2 n 

dy  $=$  a  cose}) 

o 


and  fQ  is  the  Coriolis  parameter  at 


o. 


(2.4) 


The  horizontal  del  operator  is  defined  by: 


V  = 


i 


while  the  horizontal  Laplacian  operator  is  defined  by: 


(2.5) 


(2.6) 


Jeffreys  (1922)  defines  the  geostrophic  velocity  to  be  the 
velocity  field  resulting  from  a  balance  between  the  Coriolis  force  and 
the  pressure  gradient  force.  When  pressure  is  used  as  the  vertical 
coordinate,  the  pressure  gradient  force  term  is  transformed  into  a 
geopotential  height  gradient  term.  If  the  flow  is  quasi-non-divergent , 
the  geopotential  height  gradient  term  may  be  replaced  by  a  stream 
function  gradient  term. 

The  horizontal  geostrophic  velocity  is  quasi-non-divergent 
and,  therefore,  it  may  be  written: 
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V  =  k  x  Vih 
g  g 


(2.7) 


where  V  is  the  horizontal  geostrophic  velocity  and  ip 
§  g 

strophic  stream  function.  In  component  form,  this  is: 


is  the  geo- 


u 

g 


(2.8) 


where  V  =  i  u  +  j  v  . 
g  g  g 


v 

g 


3x 


(2.9) 


by : 


The  vertical  velocity  in  pressure  coordinates,  ui,  is  defined 


(2.10) 


where  t  is  time.  The  geostrophic  vorticity,  Q  ,  is  defined  by: 


q  =  k  •  V  x  V  =  (2.11) 

g  g  g 


The  quasi-geostrophic  vorticity  equation  may  be  written  as 
(Holton,  1972;  Hoskins,  1975): 


30 

- °  =  -  V  *V{0  +f }  +  f 

3t  g  g  0 


(2.12) 
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It  is  paradoxical  that  although  the  geos trophic  wind  is  non-divergent , 
the  second  term  in  (2.12)  is  a  divergence  term.  Holton  (1972)  has 
shown  that  this  term  is  important  in  keeping  temperature  changes 
hydrostatic  and  vorticity  changes  geostrophic  in  synoptic  scale 
systems.  The  temperature  and  vorticity  fields  must  remain  consistent 
with  the  original  assumptions  of  the  quasi-geostrophic  vorticity 
equation.  In  the  derivation  of  this  equation,  it  is  assumed  that  the 
atmosphere  is  in  hydrostatic  balance  and  that  the  flow  is  quasi-geo¬ 
strophic. 


Eqn.  (2.12)  is  applied  at  levels  1  and  3  using  the  following 
finite-difference  approximations  for  the  vertical  gradient  of  63: 


3  Qj' 

.3p, 


63  -63 

_2 _ a 

Ap 


(2.13) 


63  -63 

-h _ 2 

Ap 


(2.14) 


The  vertical  velocities  at  the  top,  63^,  and  bottom,  63^,  of  the  atmos¬ 
phere  are  assumed  to  be  zero.  This  assumption  eliminates  external 
gravity  waves  from  the  model. 


Holton  (1972)  shows  that  the  adiabatic  quasi-geostrophic 
thermodynamic  energy  equation  may  be  written: 


3 

f  > 

_  M 

n 

<3+ 

3t 

,  9Pj 

g 

.  9P, 

(2.15) 
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where  the  static  stability  parameter  is  defined  by: 


a  39 
°  "  ~  6  3p 


(2.16) 


and  the  potential  temperature  is  defined  by: 


6  =  T 


1000 


l  p 


R/c 


(2.17) 


In  these  equations,  a  is  the  specific  volume  and  T  is  the  temperature 
of  the  air.  R  is  the  specific  gas  constant  for  dry  air  and  c^  is  its 
specific  heat  at  constant  pressure.  Eqn.  (2.15)  is  applied  at  level 
2  using  the  following  finite-difference  approximation: 


19pJ 


_3 _ 1 

Ap 


(2.18) 


Holton  (1972),  applying  Eqns.  (2.12)  and  (2.15)  as  indicated, 
finds  the  three  model  equations  to  be: 


30  f 

-  =  -  Jtt-J.op  -  J(*rf)  (2.19) 


ao  f 

St  =  -  J(V03)  -  J(*3.f)  (2.20) 


3_ 
3 1 


+ 


oAp 

f 

0 


2 


(2.21) 
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where  the  Jacobian  operator,  J,  is  defined  by: 


J(A,B) 


9A  9B  _  9A  9B 
9x  3v  9y  3x 


(2.22) 

V 


In  Eqns.  (2.19)  -  (2.21),  the  stream  function  is  assumed  to  be  the 
geostrophic  stream  function  although  the  subscript  denoting  the 
geostrophic  value  has  been  dropped  here  and  will  be  for  the  remainder 
of  this  thesis.  The  static  stability  parameter  is  assumed  to  be 
horizontally  homogeneous  and  independent  of  time. 


The  stream  function  for  the  mean  flow,  ip,  and  the  thickness, 

A 

ip,  are  defined  to  be: 


ip  +'l> 


(2.23) 


ip  = 


ip  -\p 

-J _ 1 

2 


(2.24) 


Note  that  tj;  is  really  half  the  thickness  between  levels  1  and  3. 

A 

However,  for  convenience,  ip  will  be  simply  referred  to  as  the  thickness 
in  this  thesis.  The  stream  function  at  level  2,  \p^ ,  is  obtained  by 
linearly  interpolating  between  levels  1  and  3  giving: 


2 


(2.25) 


Thus,  in  Eqn.  (2.21),  ip?  may  be  approximated  by  ip. 


Forming  the  sum  and  difference  of  Eqns.  (2.19)  and  (2.20) 
and  applying  Eqns.  (2.23)  -  (2.25)  to  (2.19)  -  2.21),  one  obtains: 
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30 


A  A 


>£!!  =  _  j(^,o)  -  J(iJsQ)  -  JOM) 
3 1 


(2.26) 


30  -  —  _  -  -  f 

at  =  "  J0>n)  -  J(<P,o)  -  j<>,f)  +  -£■ 

Ap  l 


(2.27) 


dip 

3 1 


-  J  (ip,ip)  +  ^2- 


2f  W2 
o 


(2.28) 


Finally,  Eqns.  (2.27)  and  (2.28)  may  be  combined  to  yield: 


2f^ 

(V2-A2)  =  -  J  (ip  ,Q)  -  JO/nQ)  -  J(i|>,f)  +  JOM)  (2.29) 


(V2-A2)  a2  = 


4f 
_ o 

a  An 


2f0  . 

Jty.Q)  -  ^  JOM) 


(2.30) 


where: 


2f  2 

>2  =  _ 2., 

aAp‘ 


(2.31) 


Equations  (2.26),  (2,29)  and  (2.30)  form  a  system  of  three 
non-linear  partial-differential  equations  in  the  three  unknowns: 

A 

\pf  ip  and  <3  .  Given  boundary  and  initial  conditions,  a  solution  to 
this  system  of  equations  may  be  found.  Baer  (1970)  has  found  an 
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analytical  solution  for  a  particular  set  of  boundary  and  initial 
conditions.  For  more  general  solutions,  however,  numerical  methods 
must  be  used.  Chapters  3  and  4  describe  the  two  numerical  methods 
employed  in  this  thesis. 

2.2  The  Boundary  Conditions 

A  free-slip  wall  boundary  condition  was  imposed  at  the 
northern  and  southern  boundaries  of  the  domain.  Accordingly,  there  can 
be  no  flow  perpendicular  to  the  wall  and  there  is  no  viscous  boundary 
layer  at  the  wall.  Using  Eqns.  (2.7)  -  (2.9),  the  first  of  these 
conditions  implies  that: 


^  =  0  (2.32) 

at  v  =  y  +  L  /4  and  at  y  =  y  -  L  /4.  The  second  of  these  conditions 
o  y  o  y 

means  that  no  additional  terms  must  be  used  with  the  model  equations 
found  in  Sec.  2.1  at  the  boundary  of  the  domain.  These  extra  terms 
would  be  necessary  to  account  for  the  turbulence  generated  near  the 
boundary  if  free  slip  was  not  assumed. 

These  conditions  do  not  completely  specify  the  solution  as 
\jj  is  specified  by  them  only  to  within  an  arbitrary  additive  constant. 
Pedlosky  (1979)  and  Phillips  (1954)  have  shown  that,  as  a  consequence 
of  the  vanishing  of  the  normal  velocity  component  on  the  boundary: 


lb 


L 

r  x 


dzip 

dvdt 


dx  =  0 


(2.33) 


where  the  integration  is  made  along  the  northern  and  southern  boun¬ 
daries  separately.  Pedlosky  (1979)  has  shown  that  Eqn.  (2.33)  is 
equivalent  to: 

II"  dxdy  =  0  (2.34) 

*  J 

D 


where  the  integration  occurs  over  the  domain,  D. 

As  the  boundary  conditions,  Eqn.  (2.32)  and  (2.33)  or 
(2.34),  apply  to  the  stream  functions  at  each  level,  they  also  apply 
to  linear  combinations  of  these  stream  functions.  Thus,  they  may  be 

A 

applied  to  the  derived  stream  functions  ip  and  \p.  Equation  (2.33)  is 
the  form  of  the  second  boundary  condition  which  is  used  in  this  thesis. 
This  form  requires  less  computer  time  when  numerically  integrated,  as 
it  must  be  when  applied  to  find  a  solution  by  the  FEM. 

2.3  The  Energy  and  Potential  Enstrophy  Relations 

The  study  of  the  energetics  of  the  atmosphere  and,  in  parti¬ 
cular,  of  the  exchanges  of  energy  among  its  various  forms,  among  the 
various  scales  of  motion,  and  among  the  sources  and  sinks  of  energy. 
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provides  an  important  tool  for  understanding  atmospheric  motion. 

Also,  the  potential  enstrophy  (PE)  may  be  used  as  an  aid  in  under¬ 
standing  atmospheric  motion.  The  PE  is  defined  to  be  the  mean  squared 
potential  vorticity.  Holton  (1972)  shows  that  the  potential  vorti- 
city,  q,  is  a  measure  of  the  ratio  of  the  vorticity  of  a  vortex  to 
the  depth  of  the  vortex. 


These  quantities  also  provide  a  useful  tool  for  studying  a 
particular  atmospheric  model,  and,  they  may  be  used  as  a  means  of 
comparing  an  atmospheric  model  with  other  models  or  with  the  real 
atmosphere.  For  the  chosen  model,  there  are  three  quantities  of  inter¬ 
est: 

1)  the  kinetic  energy  (KE) 

2)  the  available  potential  energy  (APE) 

3)  the  potential  enstrophy 

The  KE  and  APE  are  considered  to  be  present  in  two  forms: 
zonal  (ZKE  and  ZAPE)  and  eddy  (EKE  and  EAPE) .  The  atmospheric  flow  is 
considered  to  have  a  basic  zonal  component  with  disturbances  called 
"eddies”  superimposed  on  that  flow.  Thus,  any  stream  function,  i|j,  may 
be  written  as  the  sum  of  a  zonal,  i|^>  and  an  eddy,  ij^,  stream  function. 


The  KE  of  the  horizontal  flow  is  defined  as: 


KE 


j  (V-V)  dM 


(2.35) 


M 
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where  dM  is  an  element  of  mass  and  the  integration  is  over  the  total 
mass,  M,  of  the  atmosphere.  For  the  two-level  model  under  considera¬ 
tion,  this  may  be  written  as: 


KE  =  & 

8  J  J 

D 


(Vi p’Vip  +  dxdv 


(2.36) 


where  the  hydrostatic  relation,  dp/dz  =  -gp,  and  dM  =  pd  x  dydz  have 
been  used.  p  is  the  atmospheric  density,  g  is  the  acceleration  due 
to  gravity  and  z  is  the  vertical  coordinate  parallel  to  the  -p  direc¬ 
tion. 


Differentiating  Eqn.  (2.36)  with  respect  to  time  and  using 
the  divergence  theorem  and  the  boundary  conditions,  one  may  show  that: 


£>2^  dxdv  (2.37) 

D 

This  shows  that  when,  in  the  mean,  warm  air  is  ascending  and  cold  air 
is  descending,  there  is  an  increase  in  the  kinetic  energy,  because  the 
centre  of  gravity  is  being  lowered. 


dKE  =  _  _o 
dt  g 


For  this  model,  Holton  (1972)  shows  that  the  APE  is  given  by 


dxdy 


APE 


r 

2 


D 


(2.38) 


H  M 


18 


where  T  =  4  f  /gaAp.  Differentiating  Eqn.  (2.38)  with  respect  to 
time,  one  finds  that: 


dAPE 

dt 


u>^\p  dxdy 


(2.39) 


Combining  Eqns.  (2.37)  and  (2.39),  one  has: 

-y- (KE+APE)  =  0  (2.40) 

dt 

Thus,  the  total  energy,  TE  =  KE  +  APE,  of  the  model  is  conserved  but 
an  exchange  of  energy  between  KE  and  APE  may  occur. 


Relations  similar  to  Eqns.  (2.36)  and  (2.38)  are  used  to 
calculate  the  eddy  and  zonal  components  of  the  KE  and  APE.  Conserva¬ 
tion  relations,  similar  to  Eqn.  (2.40),  yield  the  intuitive  result 
that  the  total  KE  (APE)  is  simply  the  sum  of  the  ZKE  (ZAPE)  and  the 
EKE  (EAPE) . 


The  potential  vorticities  at  levels  1  and  3  are  given  by: 


q 

'1 


(^  ) 

1  3 


(2.41) 


Q  + 

3 


fZ 

o 

oAp'z 


(\p  -\p  ) 
1  3 


(2.42) 


19 


and  the  PE  is  given  by: 


PE 


D 


(a2  4-  q2)  dxdv 
1  3 


(2. A3) 


Differentiating  Eqns.  (2.42)  -  (2.44)  with  respect  to  time  and  using 
the  divergence  theorem,  one  finds  that: 


dPE 

dt 


0 


(2.44) 


Thus,  the  potential  ens trophy  is  a  conservative  property  of  this  model. 
When  an  approximate  numerical  solution  is  found  for  the  model  equa¬ 
tions,  the  two  conservative  quantities,  TE  and  PE,  will  provide  a  test 
of  the  conservation  properties  of  that  solution. 
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CHAPTER  3 

THE  SPECTRAL  METHOD 

3.1  A  Description  of  the  Method 

This  chapter  details  the  method  of  solution  of  the  model 
equations,  (2.26)  -  (2.28),  using  the  spectral  method,  which  is  an 
application  of  a  method  developed  by  Galerkin  (1915).  When  this 
method  is  applied  to  the  model  equations,  a  highly  accurate  (but  not 
analytic)  solution  is  obtained.  It  is  found  that  the  solution  by  the 
spectral  method  conserves  total  energy  and  potential  enstrophy.  This 
spectral  solution  will  be  used  to  judge  the  accuracy  of  the  solution 
by  the  FEM. 

A  simple  example  will  be  used  to  demonstrate  the  application 
of  the  spectral  method  to  a  boundary-value  problem.  Consider  the 
following  equation: 


3f (x,v, t) 
3 1 


g(x,y ,t) 


(3.1) 


This  is  similar  in  form  to  the  model  equations,  (2.26)  -  (2.28).  The 
functions  f  (x,y,t)  and  g  (x,y,t)  are  assumed  to  be  defined  on  a 
two-dimensional  domain  D  and  the  problem  is  assumed  to  be  properly 
posed.  The  functions  f  and  g  are  represented  using  a  set  of  N  +  1 
expansion  functions,  (x,y),  to  obtain: 

N 

f (x , v , t )  =  f (x,y , t)  =  l  f  (t)  F  (x,y) 

i=0 


(3.2) 
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N 

g(x,y,t)  -  g(x,y,t)  =  l  g  (t)  F  (x,y)  (3.3) 

i=0  1  1 

Kreider  et.  al.  (1966)  show  that  if  the  expansion  functions  form  a 

A  A 

basis  on  the  domain,  the  approximate  functions,  f  and  g,  will  converge 
to  the  true  functions,  f  and  g,  as  N  approaches  infinity.  It  is 
assumed  that  the  expansion  functions  can  satisfy  the  boundary  condi¬ 
tions. 


The  approximate  functions  are  substituted  into  Eqn.  (3.1) 
using  Eqns.  (3.2)  and  (3.3)  and  a  residual,  R  (x,y,t)  is  defined 
according  to*. 

N  df.  N 

P.(x,y,t)  =  l  j-1  F  -  l  g  F  (3.4) 

i=0  i-0 

Note  that  in  Eqn.  (3.4)  the  total  derivative  with  respect  to  time  is 
used  as  the  expansion  coefficients,  f  and  g^,  depend  only  on  time. 

The  explicit  dependence  of  the  expansion  coefficients  on 
time  and  of  the  expansion  functions,  F.,  on  the  two  space  variables 
have  been  omitted  for  the  sake  of  brevity.  As  the  approximate  functions 
will  not,  in  general,  satisfy  Eqn.  (3.1)  exactly,  the  residual  is  not 
necessarily  zero. 

In  Galerkin's  method,  the  residual  is  forced  to  zero  with 
respect  to  the  expansion  functions  in  an  average  sense  over  the  domain 
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(Zienkiewicz,  1977).  Thus,  we  insist  that: 


f  f 
D 


N  df .  N 

1  h- l  SiFi 

^i=0  i=0  1  1 


dxdv  =  0 


(3.5) 


for  j  =  0,  1,  2,  .  .  .,  N.  This  technique  gives  a  system  of  N  +  1 
ordinary  differential  equations  for  the  expansion  coefficients, 
f^(t) .  This  system  may  then  be  numerically  integrated,  given  initial 

A 

conditions,  to  find  the  approximate  solution,  f  (x,y,t),  to  Eqn. 
(3.1). 


3.2  The  Application  of  the  Spectral  Method  to  the  Model  Equations 

The  expansion  functions  must  be  specified  and  they  are 
usually  chosen  with  properties  which  are  particularly  appropriate  to 
the  problem  under  consideration.  For  the  present  problem,  the  follow¬ 
ing  set  of  properties  is  chosen: 

1)  F  is  a  constant  over  the  domain 

o 

2)  8F^/3x  =  0  along  the  north  and  south  boundaries 

3)  the  F^  are  orthonormal  i.e. 

F.F.  dxdy  =6..  (3.6) 

D 


_1 

A 


where  6 . .  is  the  Kronecker  delta  and  A  is  the  area  of 
ij 


the  domain 
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4)  the  expansion  functions  are  eigenfunctions  of  the 
Laplacian  operator  so  that: 


V2F.  =  -  a?F. 
1  li 


(3.7) 


where  a . 

l 


2 


>  0 


The  first  property  allows  one  to  represent  a  field  with  a 
non-zero  mean  using  the  expansion  functions.  Property  2  is  chosen 
so  that  the  boundary  condition,  Eqn.  (2.32),  may  be  satisfied. 
Property  3  is  chosen  to  facilitate  the  integration  of  terms  in  equa¬ 
tions  similar  to  Eqn.  (3.5).  Property  4  is  chosen  as  the  Laplacian 
operator  is  present  in  the  model  equations.  This  property  will  also 
simplify  the  integration  of  terms  in  equations  similar  to  Eqn.  (3.5). 


A 

Expanding  the  variables  ip,  and  ,  one  has: 

_  N 

^ (x ,y , t)  -  l  ip.(t)  F.(x,v)  (3.8) 

i=0  1  1 


N 

ip  (x  ,y ,  t)  -  l  i.(t)  F.(x,y)  (3.9) 

i=0  1 


N 

uj  (x,v,t)  -  l  00. (t)  F.(x,y)  (3.10) 

2  i=0  1  1 


Using  this  expansion  and  Eqn.  (3.7) ,  the  first  model  equation,  Eqn. 
(2.26),  becomes: 
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N  N 


N  dip.  N  N 

'Jnai  if1  Fi  “I  +  l  l 

1=0  t =0  k=0  J  J  j=o  k=0  3  3  K 


N  3F. 

B  I  T-1  +  R 

.L~  i  8x 


(3.11) 


i=0 


Applying  the  Galerkin  procedure  to  Eqn.  (3.11)  by  multiplying  by  a 
Particular  and  integrating  over  the  domain,  one  has: 


di{>£  N  N 


N  N 


al  aF  =  I  l  ^Vk  FiJ(Fi>Fk)  +  £  1  akTiTk  V(Fi’Fk) 

j=0  k=0  K  3  K  36  3  k  j=o  k=0  k  3  k  3  k 


N  3F . 

-  6  7  if;  F  — 1 
>0  i  £  8x 


(3.12) 


where  the  averaging  operator,  (  ) ,  is  defined  by; 


(  )  = 


(  )  dxdy 


(3.13) 


D 


The  terms  in  Eqn.  (3.12)  which  involve  the  averaging  operator 
may  only  be  evaluated  once  the  expansion  functions  have  been  chosen. 
These  terms,  however,  are  independent  of  space  and  time.  They  are 
constants  which  depend  only  on  the  expansion  functions  and  the  domain 
of  the  problem  and  they  may  be  written: 


, 
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c 


£jk 


V<W 


(3.14) 


b 


£i 


3F. 

F  — 1 

l  3x 


(3.15) 


Applying  the  Galerkin  procedure  to  the  three  model  equa¬ 
tions,  Eqns.  (2.26)  -  (2.28),  and  using  Eqns.  (3.14)  and  (3.15),  one 
obtains : 


dip  N  N 

a2  - —  =  y  y  aj-c  „  . .  (4> .  ik  +x  .  x.  ) 


N 


6  l  bu*. 

i=0 


(3.16) 


N  f 

8  y  b  .t  .  + 

£i  i  Ap 


Ap  W£ 


(3.17) 


dx 

dt 


n  N  N 

-  -  l  I  cj.jkVk  +  ff2-  “<l 

j=0  k=0  *JK  J  K  o  * 


(3. 18) 


Using  Eqns.  (3.14)  and  ( 2.22 ),  one  may  show  that: 


N  N 

Jo  JoXkTlkCl3k 


Jo  I<VW«J 


(3.19) 
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for  arbitrary  and  for  all  YJfc  where  \  and  Y.^  represent 

expansion  coefficients  or  combinations  of  expansion  coefficients  which 

depend  only  on  the  given  indices.  Eqn.  (3.19)  may  be  applied  to  Eqns. 
(3.16)  -  (3.18)  to  give: 


<4\ 

dt 


r  N  N  (a?-a2) 

l  I-V-c 

j=0  k=0  l 


Jljk^jWk5 


+ 


6 

72 


N 

1  bo  • 
.Ln  £iri 


£  i=0 


(3.20) 


dt 


N  N  (a2-a.2) 

I  Z-V- 

vj=0  k=0  a£ 


cijk(Vk+TkV 


N 

Z  b 


+  ^~2  /  D  T 

i=0  £i  1 


(3.21) 


^ £ 
dt 


> 

(TjVTkV 


04£ 

2f 

0 


(3.22) 


Eqns.  (3.20)  -  (3.22)  yield  a  system  of  3  (N  +  1)  ordinary 
differential  equations  for  the  3  (N  +  1)  expansion  coefficients. 

Before  solving  these,  the  expansion  functions  must  be  chosen.  They 
must  satisfy  the  four  criteria  given  earlier.  Following  Lorenz  (1960), 
the  choice  of  expansion  functions  is: 


F  =  1 

0 


F  =  Jl  cos 
1 


F  =  2  sin 

2 


F  =  2  sin 
3 


sm 


2tt 


x 


2tt 

cos  - — nx 
x 


(3.23) 
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This  is  referred  to  as  a  truncated  spectral  series  expansion. 
Applying  Eqn.  (3.7)  to  these  functions,  one  finds: 

a0  =  0  (3.24) 

a2  =  (2tt/Lv)2  (3.25) 

1  J 

a?  =  a?  =  (2tt/L  )2  +  (27rn/L  )2  (3.26) 

^  y  x 

This  set  of  functions  allows  only  a  wave  with  wavenumber  n  to  exist 
in  the  x-direction.  This  particular  wavenumber  will  be  left  to  be 
chosen  later.  In  the  y-direction,  only  waves  of  one  wavenumber  are 
allowed  and  this  is  completely  specified  with  the  choice  of  given 
earlier.  In  order  to  fully  describe  atmospheric  flows,  which  are 
characterized  by  many  wavelengths,  many  more  expansion  functions  would 
be  necessary.  Limiting  the  model  to  waves  of  only  one  wavelength, 
however,  simplifies  the  solution  considerably.  This  set  of  functions 
does,  however,  allow  one  to  study  the  non-linear  interactions  between 
waves  of  the  same  wavelength  in  the  fields  of  the  stream  functions  for 
the  mean  flow  (or  mean  height)  and  the  thickness.  The  amplitudes  of  the 
waves  and  the  phase  difference  between  the  waves  may  be  varied  to 
simulate  aspects  of  various  atmospheric  flow  patterns. 

The  expansion  function  Fq  is  used  to  specify  the  mean  height 
of  the  field.  It  is  irrelevant  to  the  present  problem,  however,  and 
will  be  dropped.  As  proof  of  its  irrelevance,  Eqn.  (3.14)  demonstrates 
that  with  the  chosen  expansion  functions,  c^k  =  0  if  any  of  l  =  0, 
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j  =  0,  or  k  =  0.  Eqn.  (3.15)  shows  that  b  .  =  0  if  £  =  0  or  i  =  0. 
Thus,  the  mean  of  the  field  does  not  interact  with  the  perturbation 
in  the  field  and  it  is,  therefore,  not  important.  Consequently,  the 
expansion  coefficients  associated  with  F  will  be  assumed  to  be  0. 


For  the  chosen  domain  and  the  three  expansion  functions, 
F^,  F2  and  F^,  Eqn.  (3.15)  gives: 


b  ^  =  0  for  l  =  1,2,3 


(3.27) 


b0~  =  -  b„0  =  -  2vn/L 
23  32  x 


(3.28) 


Eqn.  (3.14)  shows  that  c  is  non-zero  only  when  the  three  indices  are 

Jo  J  K. 

distinct  and  one  finds  that: 


32/2: 


Trn 


'321 


3L  L 
x  v 


(3.29) 


The  dependent  variables,  ip,  ip  and  are  expanded  using  the 

expansion  functions  to  obtain: 


+  -  *iFi  +  *2F2  +  V 3 


(3.30) 


^  ”  t1F1  +  T2F2  +  T3F3 


(3.31) 


*2  =  W1F1  +  w2F2  +  W3F3 


(3.32) 


■  ft  r  '• 
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Finally,  Eqns.  (3.23)  -  (3.32)  are  substituted  into  Eqns.  (3.20)  - 

(3.22)  to  obtain  a  system  of  nine  ordinary  differential  equations  in 

the  nine  expansion  coefficients.  These  equations  are  n on-dimens ion- 

alized  as  this  will  give  a  simpler  form  for  the  final  equations.  Thus, 

in  the  equations,  an  arbitrary  expansion  coefficient  for  the  mean  flow, 

2 

ip . ,  is  replaced  by  L  f  ip..  This  new  coefficient  is  non-dimensional. 

2 

Similarly,  x_^  is  replaced  by  L  f  ;  uk  is  replaced  by  Ap  fQ  uk,  and 

d/dt  is  replaced  by  f  d/dt. 


Simple  algebraic  manipulation  allows  one  to  rewrite  the 
resulting  nine  non-dimensional  equations  as  a  system  of  six  ordinary 
differential  equations  and  three  diagnostic  omega  equations: 


dtp 

dt 


(3.33) 


d^2  * 

—  =  n2vy(tp  tp  +x  x  )  -  8  nyip  (3.34) 

dt  1313  3 


dip  * 

— 3  =  -  n2vy(tp  ip  +t  t  )  -  6  nytp  (3.35) 

dt  1212  2 


(3.36) 


dx  * 

— 2  =  n2vu  (t  tp  +x  tp  )  —  6  nyx  -  yoo 
dt  1331  3  i 


(3.37) 


■k 

=  _  n2vy  (t  ip  +x  ip  )  +  8  nyx  ~  yw 
12  2  1  2  3 


dx 

_ 3 

dt 


(3.38) 
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771  (V3-V7 

cc 


(3.39) 


(jo  =  — t — fv{n2y(x  -+-t  )  —  (t  ^  — t  ) }  —  3  nyx  ) 

2  0*+1/  1331  3113  3 


(3.40) 


1  * 

w  =  ~ — (v{  (t  i{j  -t  i{j  )  -  n2y(x  ij)  +t  B  nyx  ) 

3  a  +u  2112  1221  3 


(3.41) 


where  the  following  symbol  definitions  have  been  used: 


a  =  L  /L 
x  v 


L  =  L  /2tt 
x 


Y  -  8/2/37T 


3*  =  BL/f 

o 


*  At>2a 

a  =  — - - 

2f  2L2 
o 

v  =  yan 


y  =  1/ (a2+n2) 


(3.42) 

(3.43) 

(3.44) 

(3.45) 

(3.46) 

(3.47) 

(3.48) 
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Thus,  the  spectral  method  requires  the  solution  of  six 
non-linear  ordinary  differential  equations,  Eqns.  (3.33)  -  (3.38), 
and  three  omega  equations,  Eqns.  (3.39)  -  (3.41),  for  the  nine  expan¬ 
sion  coefficients.  Baer  (1970)  has  found  an  analytical  solution  to 
these  equations  to  be  expressible  in  terms  of  elliptic  functions.  The 
analytical  solution  was  not  used  for  this  thesis.  Instead,  a  numerical 
solution  was  found  because  a  highly  accurate  solution  could  be  found 
numerically  with  considerably  less  computational  effort  than  an  evalua¬ 
tion  of  the  analytical  solution  would  require. 

Equations  (3.33)  -  (3.38)  have  the  general  form: 

f£=g(t)  (3.49) 

In  order  to  integrate  such  an  equation  numerically,  it  is  written  in 
finite-difference  form.  For  the  first  time  step,  an  Euler  forward 
difference  is  used: 

f1  =  f°  +  Atg°  (3.50) 

where  f°  and  g°  are  the  initial  values  of  the  functions  f  and  g  and 
At  is  the  time  step.  Ralston  (1965)  shows  that  this  scheme  has  first- 
order  accuracy.  For  subsequent  time  steps,  the  second— order  Adams— 
Bashforth  method  is  used: 

fn+1  =  fn  +  ^|(3gn-gn'1) 


(3.51) 
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Lilly  (1965)  found  the  Adams— Bashforth  method  to  be  simple  and  effi¬ 
cient  while  giving  accuracy  on  a  par  with  more  complicated  methods 
when  he  compared  8  methods  for  integrating  equations  similar  to 
Eqns.  (3.37)  -  (3.42). 

As  the  spectral  solution  is  to  be  used  as  an  accurate  solu¬ 
tion  with  which  to  compare  the  finite-element  solution,  the  minimiza¬ 
tion  of  time  truncation  error  is  very  important.  Haltiner  (1971) 
indicates  that  the  time  step  must  be  a  "small"  fraction  of  the  period 
of  variation  of  the  spectral  amplitudes.  As  synoptic-scale  motions  are 
being  studied,  the  period  of  the  spectral  amplitudes  is  expected  to  be 
on  the  order  of  days.  Thus,  the  qualitative  criterion  of  Haltiner  (1971) 
indicates  that  a  time  step  on  the  order  of  hours  is  appropriate.  Test 
integrations  were  done  with  time  steps  of  1  hour  and  0.5  hours.  After 
24  hours  of  integration,  the  solutions  with  the  different  time  steps 
were  compared.  The  spectral  amplitudes  were  found  to  vary  by  less  than 

4 

1  part  in  10  .  These  results  suggest  a  time  step  of  0.5  hours  is 
sufficiently  small  and  this  is  used  in  all  spectral  integrations  presen¬ 
ted  in  Chapter  5. 

The  initial  conditions  are  determined  by  choosing  values  for 
\p  °,  ip  °,  ip  °,  t  °,  t  °  and  t  °.  In  choosing  these  values,  one  deter- 

Jl  ^  j  1-  ^  J 

mines  not  only  the  amplitudes  of  the  waves  but  also  the  phase  relation¬ 
ship  between  the  waves  in  the  stream  function  for  the  mean  height,  ip, 

A 

and  for  the  thickness,  This  allows  one  to  simulate  a  variety  of 

atmospheric  flow  patterns.  The  initial  conditions  for  the  cases  presen¬ 
ted  in  Chapter  5  were  chosen  to  represent  a  variety  of  flows.  This  is 
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done  so  that  the  solution  by  the  finite-element  method  could  be  tested 
with  a  variety  of  initial  conditions  in  order  to  determine  its  pos¬ 
sible  strengths  or  weaknesses. 


3.3  The  Energy  and  Potential  Enstrophy  Relations 

The  energies  and  potential  enstrophy  discussed  in  Sec.  2.3 
can  be  related  to  the  expansion  coefficients.  Using  the  definition  of 
the  kinetic  energy,  Eqn.  (2.36),  and  Eqns.  (3.30)  and  (3.31),  one  finds 
that: 


KE 


2L  L  ApL4fz 

x  y  q 

g 


(lJjZ+T2) 
1  1 


+ 


ih 


(3.52) 


where  non-dimensionalized  coef ficients  are  used.  Using  Eqn.  (2.38), 
the  available  potential  energy  of  the  spectral  solution  is  found  to 
be  given  by: 


rL  L  f2L4 

— x--y-  -° —  (t2+t2+t2)  (3.53) 

4  12  3 


The  potential  enstrophy  for  the  spectral  solution,  using  Eqns.  (2.41), 
(2.42)  and  (2.43),  is  found  to  be: 


PE 


ApL  L  fz 

X  V  o 
2g 


{ (a2+l /a  )t  }2  +  (a2+n2+l/a  ){t2+t2}1 
1  2  3  ; 


(3.54) 
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Differentiating  Eqns.  (3.52)  -  (3.54)  with  respect  to  time 
and  substituting  Eqns.  (3.33)  -  (3.41)  in,  it  is  found  that  the  total 
energy  and  the  potential  enstrophy  are  conserved  by  the  exact  spectral 
solution.  Eqns.  (3.52)  -  (3.54)  allow  the  calculation  of  these  quan¬ 
tities  at  each  step  of  the  integration.  The  conservation  of  these 
quantities  was  used  as  a  method  of  verifying  the  accuracy  of  the  spec¬ 
tral  numerical  solution.  In  practice,  it  was  found  that  these  quanti- 

4 

ties  were  conserved  to  better  than  1  in  10  for  a  wide  variety  of 
initial  conditions  and  lengths  of  integrations.  In  particular,  it  is 
true  for  all  cases  presented  in  Chapter  5. 
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CHAPTER  4 

THE  FINITE-ELEMENT  METHOD 

4.1  A  Description  of  the  Method 

Since  its  initial  development  by  structural  engineers  during 
the  1950's  (e.g.  Turner  et.  al. ,  1956;  Argyris,  1960;  Clough,  1960), 
the  finite-element  method  (FEM)  has  become  a  popular  means  of  finding 
approximate  solutions  to  initial  and/or  boundary  value  problems.  In 
recent  years,  (Wang,  et.  al. ,  1972;  Cullen,  1976,  1979;  Staniforth 
and  Daley,  1978,  1979),  the  FEM  has  been  applied  to  the  initial-boundary- 
value  problems  of  numerical  weather  prediction.  This  chapter  describes 
the  application  of  the  FEM  to  the  atmospheric  model  described  in 
Chapter  2.  A  brief  history  of  the  method  is  given  first  and  a  discus¬ 
sion  of  the  FEM  follows,  with  a  “Simple  example  used  to  clarify  the 
discussion.  Finally,  the  application  of  the  FEM  to  the  atmospheric 
model  under  consideration  is  presented. 

It  is  difficult  to  determine  the  originator  of  the  FEM, 
although  Clough  (1960)  seems  to  have  been  the  first  to  use  the  name. 

Until  the  early  1960's,  the  method  was  developed  separately  by  mathe¬ 
maticians  and  engineers.  On  the  engineering  side,  the  FEM  evolved 
from  the  matrix  method  of  structural  analysis  (Zienkiewicz,  1977).  In 
this  method,  the  analysis  of  structures  proceeded  by  considering  the 
components  of  the  structures  separately.  Relations  between  the  dis¬ 
placements  and  internal  forces  at  the  nodal  points  of  individual  com¬ 
ponents  were  derived  in  matrix  form  with  the  displacements  and/or  the 
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forces  being  unknown.  (The  nodal  points  are  the  places  where  the 
components  were  joined.)  The  solution  for  the  unknowns  proceeded  by 
solving  the  system  of  equations,  written  in  matrix  form,  for  the 
unknowns. 


This  method  provided  the  exact  answer  for  the  unknowns. 

The  only  assumption  made  was  that  mathematical  relations  could  be  used 
to  describe  real  physical  systems.  By  analogy,  McHenry  (1943)  and 
Newmark  (1949),  for  example,  extended  the  matrix  method  to  continuum 
problems,  i.e.  problems  without  easily  identifiable  components.  They 
divided  the  continuum  into  a  number  of  hypothetical  components  called 
elements.  They  then  proceeded  as  before  by  writing  a  system  of  equa¬ 
tions  for  the  nodal  displacements  and  forces  and  solving  this  system 
of  equations.  This  was  found  to  give  a  good  approximate  solution  to 
the  original  continuum  problem. 

As  the  method  evolved,  it  was  found  that  the  simplest  proce¬ 
dure  to  ensure  that  the  forces  and  displacements  of  the  approximate 
solution  represented  accurately  the  true  solution,  was  to  introduce  the 
concept  of  virtual  work  (Zienkiewicz ,  1977).  An  arbitrary  (i.e.  virtual) 
nodal  displacement  is  imposed  and  the  internal  and  external  work  done  by 
the  various  forces  and  stresses  during  that  displacement  are  equated. 

It  was  recognized  that  this  approach  was  equivalent  to  minimizing  the 
total  potential  energy  of  the  structure  under  consideration.  Argyris 
(1960),  for  example,  detailed  the  resulting  matrix  equations,  for  a 
rectangular  panel  under  plane  stress,  in  a  comprehensive  paper  on  energy 


theorems  and  matrix  methods. 
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During  the  late  1950's  and  early  1960's  (e.g.  Szmelter,  1959; 
Clough,  1965) ,  this  method  was  recognized  as  an  extension  of  the 
Rayleigh— Ritz  method,  which  had  been  well  known  to  mathematicians  since 
the  publications  of  Rayleigh  (1870)  and  Ritz  (1909).  With  this  recog- 
n it ion,  it  became  possible  to  give  a  mathematical  basis  to  the  largely 
intuitive  developments  of  the  engineering  profession.  During  the  last 
two  decades,  the  use  of  the  FEM  has  grown  rapidly  and  a  bibliography  of 
the  FEM  by  Norrie  and  deVries  (1976)  provides  a  detailed  listing  of  many 
of  the  developments. 

When  applying  the  FEM,  the  domain  of  the  problem  is  divided 
into  a  number  of  elements.  The  number,  size  and  shape  of  the  elements 
are  chosen  after  consideration  of  the  domain  of  the  problem  and  the 
degree  of  accuracy  required.  Zienkiewicz  (1977)  discusses  some  of  the 
possible  choices  for  elemental  shapes.  Triangular  and  rectangular 
shapes  have  been  popular  as  they  are  relatively  easy  to  work  with.  There 
are  no  hard  and  fast  rules  for  choosing  the  elements  although  there  are 
a  few  guidelines.  For  a  domain  with  a  curved  boundary,  triangular  ele¬ 
ments  offer  an  advantage  as  they  can  better  approximate  the  boundary. 

For  rectangular  domains,  rectangular  elements  may  be  advantageous  as 
fewer  elements  are  normally  required  for  a  given  level  of  accuracy. 

Also,  increasing  the  total  number  of  elements  and  decreasing  the  size 
of  the  elements  provides  increased  accuracy.  One  has  the  option  of 
using  small  elements  in  areas  of  detailed  interest  while  using  larger 
elements  elsewhere.  When  all  the  elements  are  chosen  for  a  domain,  the 
result  is  called  the  mesh  or  grid  of  the  domain.  It  is  advantageous  to 
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automate  the  choice  of  this  mesh  for  a  given  elemental  shape  and 
domain. 


In  this  thesis,  rectangular  elements  are  used,  and  Fig.  4.1 
shows  the  mesh  used  for  the  domain  defined  in  Sec.  2.1.  The  domain  is 
divided  into  unequal  rectangles.  The  central  portion  of  the  mesh  has 
high  resolution  with  the  elements  having  a  length  of  200  km.  on  a  side. 

The  element  length  and  width  varies  uniformly  away  from  this  central 
portion.  Thus,  the  ratio  of  elemental  lengths  between  neighbouring 
elements  is  a  constant.  The  elemental  length  reaches  a  maximum  of 
1200  km.  and  the  elemental  width  reaches  a  minimum  of  60  km.  The  high 
resolution  portion  near  the  north  and  south  boundaries  is  used  to  permit 
a  more  accurate  implementation  of  the  boundary  conditions,  Eqns.  (2.33) 
and  (2.34).  A  variable  grid  length  was  used  so  that  its  effect  on  the 
solution  could  be  investigated.  The  portions  of  the  grid  marked  A  and 
B  in  Fig.  4.1  are  the  portions  of  the  domain  in  which  the  FEM  solution 
will  be  presented  (in  Chapter  5)  for  comparison  with  the  spectral 
solution.  The  portion  marked  C  is  the  portion  on  which  the  energies  and 
the  potential  enstrophy  of  the  two  solutions  will  be  calculated. 

The  elemental  shape  must  be  chosen  in  conjunction  with  the 
basis  functions,  e*  (x,y),  to  be  used  and  the  number  of  nodes  per  element. 
The  basis  functions  form  an  interpolatory  basis  with  which  a  function 
may  be  interpolated  on  the  domain.  They  are  normally  chosen  to  be  low- 
order  polynomials  and  are  defined  in  a  piece-wise  sense  on  the  domain, 
i.e.  the  i'th  basis  function  is  non-zero  only  over  some  (small)  portion 
of  the  domain  adjacent  to  element  i.  The  choice  of  piece-wise  defined 
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basis  functions  is  a  major  strength  of  the  FEM.  It  leads  to  systems 
of  linear  equations  which  may  be  written  in  matrix  form.  These  matrices 
are  normally  highly  sparse  and  banded.  This  gives  a  significant 
computational  advantage  over  systems  that  are  nearly  full  or  not  banded. 

In  general,  when  interpolating  a  function,  one  needs  the 
basis  functions  and  some  values  of  the  function  being  interpolated.  In 
the  FEM,  these  values  are  the  value  of  the  function  at  the  nodes.  The 
nodes  are  specified  points  on  the  domain  and  the  number  of  nodes  chosen 
per  element  determines  the  order  of  the  basis  functions.  Thus,  with 
rectangular  elements,  if  four  nodes  are  chosen  per  element,  the  basis 
functions  are  bi-linear  while  the  use  of  sixteen  nodes  per  element 
would  be  consistent  with  bi-quadratic  basis  functions.  Although  the 
nodes  are  often  chosen  to  be  on  _the  boundary  of  the  elements,  they  may 
be  in  the  interior  of  the  element.  The  number  of  nodes  per  element, 
the  nodal  positions  and  the  basis  functions  must  be  chosen  together. 

The  reader  is  referred  to  Zienkiewicz  (1977)  and  Tong  and  Rossettos 
(1977)  for  examples  of  elements  and  their  associated  nodes  and  basis 
functions  which  have  been  used. 

In  this  thesis,  four  nodes  per  element  are  used  and  the  nodes 
are  chosen  to  be  in  the  corners  of  the  elements.  Each  node  is  common 
to  four  elements. 

Bi-linear  basis  functions  are  used.  One  may  define  the  basis 
functions  with  respect  to  each  element  or,  equivalently  and  more  simply 
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in  this  case,  one  may  define  them  with  respect  to  the  nodes.  If  the 
nodes  are  numbered  m  =  1,  2,  .  .  . ,  NI  in  the  x-direction  and  n  =  1, 

2,  .  .  .  ,  NJ  in  the  y-direction,  the  basis  function  for  node  (m,n)  may 
be  written: 
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and  £  is  the  multi-integer  (m,n)  .  The  vector  [X^  X2 ,  .  .  .,  X^] 

tains  the  values  of  the  x-coordinate  at  the  nodes  while  [Y^,  Y2,  . 

Y  ]  contains  the  values  of  the  y-coordinate. 
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Thus,  e  (x,y)  is  non-zero  only  over  the  four  rectangles 
which  have  node  £  in  common.  Also,  e  (x,y)  has  a  value  of  1  at  the 
node  and  diminishes  to  a  value  of  zero  at  the  other  nodes  of  those  four 
rectangles.  With  this  definition,  these  basis  functions  are  almost 
orthogonal,  i.e.  they  interact  only  locally.  Thus,  the  integral 
defined  by: 


I 


e^(x,y)  ek(x,y)  dxdy 


(4.3) 


where  £  is  the  multi- integer  (m,n)  and  k  is  the  multi-integer  (M,N),  is 
non-zero  only  if  m  =  M  -  1,  M  or  M  +  1  and  n  =  N  -  1,  NorN+1. 
Finally,  it  should  be  noted  that  the  basis  functions  are  separable,  i.e 
they  may  be  written  e5'  (x,y)  =  em  (x)  e11  (y)  .  These  basis  functions 
may  be  used  to  interpolate  a  function,  g  (x,y) ,  on  a  domain  in  the 
following  way: 


g(x,y)  =  l  g.e1(x,y)  (4.4) 

1 

where  the  summation  extends  over  all  nodes  and  the  g^  are  the  nodal 
values  of  g  (x,y). 

The  FEM  is,  in  fact,  a  general  class  of  methods  and  one  must 
choose  the  particular  method(s)  to  be  used  for  a  given  problem. 
Zienkiewicz  (1977)  provides  a  discussion  of  some  of  the  methods  which 
have  been  used.  Two  large  sub— classes  of  the  FEM  are  the  variational 
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and  the  weighted  residual  approaches.  An  example  of  a  method  from 
each  of  these  sub-classes  is  considered  in  this  thesis.  First,  the 
Rayleigh-Ritz  method  (a  variational  approach)  and  then  the  Galerkin 
method  (a  weighted  residual  approach)  will  be  discussed.  The  Galerkin 
method  is  the  one  actually  used  for  the  solution  of  the  model  equations. 


To  illustrate  the  Rayleigh-Ritz  method,  let  us  consider  the 
two-dimensional  Poisson  equation: 

V2tf>  =  f  (x,y)  (4 .5) 


valid  on  a  domain  D  with  the  boundary  condition: 

<Kx,y)  =  <f>  (4.6) 

on  the  boundary,  T,  of  the  domain  where  <j>  is  a  constant.  A  variational 
principle  may  be  written: 


1(40  =  \ 


(V6)2  dxdy  + 


f(x,y)4>  dxdy 


(4.7) 


D 


D 


^  A 

where  (  V<j>  ) 2  =  (  9cf>  /  3x  ) 2  +  (  9<t>  /  9y  )  •  Tong  and  Rossettos  (1977) 
have  shown  that  the  function,  <j>,  which  minimizes  Eqn.  (4.7)  and  satis¬ 
fies  Eqn.  (4.6),  is  also  the  solution  of  Eqns.  (4.5)  and  (4.6).  Thus, 
the  solution  of  the  original  differential  equation  is  also  the  extremum 


of  the  variational  principle, 


In  the  Rayleigh-Ritz  method,  an  approximate  solution  to 
Eqns.  (4.5)  and  (4.6)  is  found  by  minimizing  an  approximate  form  of 
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the  variational  principle,  Eqn.  (4.7).  The  functions  <J>  and  f  are 
expanded  as  in  Eqn.  (4.4)  and  are  substituted  into  Eqn.  (4.7).  This 
yields  an  approximate  form  of  the  variational,  I*  (<J>),  and  this  is 
minimized  with  respect  to  changes  in  each  of  the  nodal  values  of  <j>, 
i.  e. 


* 

||  =  0  ;  i=  1 , 2 , - ,N  (4.8) 

where  N  is  the  total  number  of  interior  nodes.  This  procedure  yields 
a  system  of  linear  equations  which  may  be  written  in  matrix  form  as: 

=  Bf_  (4.9) 

where  A  and  B  are  square  N  x  N  matrices  and  and  _f  are  vectors  of  the 
nodal  values  of  their  respective  functions.  Given  the  nodal  values  of 
f,  one  may  find  the  nodal  values  of  <J>  by  inverting  A  in  Eqn.  (4.9). 

This  is  the  approximate  solution  to  Eqns.  (4.5)  and  (4.6). 

Many  boundary-value  problems,  however,  do  not  have  a  corres¬ 
ponding  variational  principle  and  other  methods  must  be  used  to  find 
solutions  to  them.  The  Galerkin  method  is  one  of  these.  The  present 
method  is  an  extension  of  that  given  by  Galerkin  (1915).  In  the  general 
weighted  residual  approach,  the  differential  equation,  Eqn.  (4.5),  is 
multiplied  by  a  test  function,  t  (x,y) ,  and  the  product  is  integrated 
over  the  domain  to  yield: 
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(4.10) 


In  the  Galerkin  method,  the  test  function  is  chosen  to  be  one  of  the 
basis  functions. 


If  the  derivatives  in  Eqn.  (4.10)  are  of  higher  order  than 
are  the  basis  functions,  it  is  necessary  to  integrate  Eqn.  (4.10)  by 
parts.  In  two -dimens ions,  this  can  be  accomplished  using  Green’s 
Theorem.  Following  Zienkiewicz  (1977),  Eqn.  (4.10)  may  be  written: 
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where  n  and  1  are  the  direction  cosines  between  the  outward  normal 
x  y 

to  the  boundary  and  the  x  and  y  axes  respectively.  With  the  boundary 
condition  Eqn.  (4.6),  the  last  two  terms  of  Eqn.  (4.11)  are  zero. 


Now,  4>  and  f  are  expanded  using  Eqn.  (4.4)  and  substituted 
into  Eqn.  (4.11).  Upon  integration,  a  system  of  linear  equations 
similar  to  Eqn.  (4.9)  is  obtained  and  the  approximate  solution  may  be 
found  by  inverting  the  new  matrix  A.  Strang  and  Fix  (1973)  have  shown 
that  the  Galerkin  and  Rayleigh-Ritz  methods  give  the  same  system  of 
equations  if  the  problem  has  a  variational  form. 
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The  right-hand-side  of  Eqn.  (4.5)  has,  to  this  point,  been 
treated  as  a  simple  function,  f  (x,y).  In  fact,  as  in  the  model 
equation  (2.26)  for  example,  the  right -hand-side  may  be  a  rather 
complicated  expression.  The  nodal  values  of  this  expression  must  be 
evaluated  (to  give  the  nodal  values  of  f)  so  that  the  solution  may 
proceed  via  the  Galerkin  or  Rayleigh-Ritz  methods.  Staniforth  and 
Daley  (1978)  provide  a  detailed  explanation  of  how  this  expression  may 
be  evaluated  and  the  following  brief  explanation  is  based  on  their 
work. 


The  evaluation  of  complicated  right-hand-sides  of  equations 
such  as  Eqn.  (2.26)  is  most  easily  understood  by  breaking  the  procedure 
up  into  a  number  of  smaller  steps.  In  general,  the  right-hand-side 
involves  the  addition  or  subtraction  of  functions,  the  differentiation 
of  functions  and  the  products  of  functions.  Each  of  these  will  be 
considered  in  turn. 

The  addition  or  subtraction  of  functions  proceeds  node  by 
node.  Thus,  if  the  nodal  values  f  and  gi  of  the  functions  f  (x,y)  and 
g  (x,y)  are  known,  the  sum  or  difference,  b  (x,y)  =  f  (x,y)  +  g  (x,y) , 
is  found  using: 

b.  =  f.±g  (4.12) 

l  i  i 

for  all  the  nodes,  i  =  1,  2,  .  .  .,  N. 
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The  differentiation  of  functions  will  be  considered  for  a 
one— dimensional  domain  first.  Let  us  consider  the  determination  of  a 
of  the  first  derivative  of  a  function,  u  (x) ,  in  the  x-direc- 

tion: 


v  =  au  (4.13) 

x 

where  u  E  du/dx  and  a  is  a  scalar  constant.  It  is  assumed  that  u  is 

X 

known  at  the  nodal  points  x^  i  =  1,  2,  .  .  .  ,  N  and  that  v  is  required 
at  these  points.  The  two  functions,  u  and  v,  are  expanded  using  the 
basis  functions,  e1  (x) ,  and  substituted  into  Eqn.  (4.13)  to  obtain: 

v  ei(x)  =  u.ei(x)  (4.14) 

1  IX 

where  e1  (x)  =  d  e1  (x)/dx  and  where  the  Einstein  summation  convention 

X 

for  repeated  indices  is  used.  The  Galerkin  procedure  is  applied  by 
multiplying  by  each  of  the  basis  functions  successively  and  integrating 
over  the  domain,  [x^,  x^]  ,  to  obtain 


*N 

ek(x)e1(x) 

• 

dx  =  au. 

l 

e^(x)e^(x)  dx 

X 

(4.15) 

X1 

X1 

for  k  =  1,  2,  .  .  . ,  N.  This  may  be  written  in  matrix  form  as: 


Pv  =  aP  u 
—  x— 


(4.16) 
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where : 
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(4.17) 
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p  is  the  (k,i)  element  of  an  N  x  N  matrix  and  (  )  is  the  transpose 

of  that  vector. 


As  the  basis  functions  are  nearly  orthogonal,  the  matrices 
P  and  PQ  are  tri-diagonal.  Staniforth  and  Daley  (1978)  show  that  P 
is  diagonally  dominant  and  that  the  solution  of  this  system  of  equa¬ 
tions  by  Gaussian  elimination  is,  therefore,  stable  with  respect  to 
round-off  error.  As  a  consequence  of  the  separability  of  the  basis 
functions,  Staniforth  and  Daley  (1978)  find  that  a  partial  derivative 
in  a  multi-dimensional  field  may  be  obtained  by  taking  the  appropriate 
ordinary  derivative  in  the  direction  defined  by  the  partial  derivative. 

Consider  now  the  evaluation  of  the  product  of  two  functions, 
u  (x)  and  v  (x) ,  defined,  again  for  the  sake  of  simplicity,  on  a  one- 
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dimensional  domain: 


w  =  auv 


(4.18) 


where  a  is  a  scalar  constant.  The  three  functions,  u,  v  and  w,  are 
expanded  using  the  basis  functions  and  the  Galerkin  procedure  is 
again  applied  to  obtain: 


x. 


'N 


(4.19) 


w. 
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X 


1 


which  is  valid  for  k  =  1,  2,  .  .  . ,  N.  The  left-hand-side  will  be 
recognized  as  the  matrix  P  defined  by  Eqn.  (4.17).  The  right-hand- 
side  of  Eqn.  (4.19)  is  more  complicated  than  before  and  an  efficient 
method  for  evaluating  it  is  necessary.  The  left-hand-side  is  evaluated 
using  numerical  integration  and,  as  the  integrand  is  cubic  in  x, 

Simpson  quadrature,  a  quadrature  formula  which  is  exact  for  cubics, 
is  used.  Over  the  range  [  x^,  xn+1] ,  it  is  found  that: 
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n+1 
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and  that : 
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n+1 


n+1 


(x)u(x)v(x)  dx  = 


(x  -x  ) 
n+1  n 
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x 
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For  a  multi-dimensional  domain,  Staniforth  and  Daley  (1978) 
show  that  product  terms  like  Eqn.  (4.18)  may  be  reduced  to  weighted 
sums  of  products  evaluated  on  a  one-dimensional  domain.  That  is,  one 
numerically  integrates  in  one  direction  and  then  integrates  along  the 
other  direction. 


Thus,  the  results  which  are  necessary  to  evaluate  the  nodal 


values  of  f  on  the  right-hand-side  of  Eqn.  (4.9)  have  been  established 
for  bi-linear  basis  functions  on  a  two-dimensional  domain.  In  Section 
4.2,  we  will  consider  the  application  of  the  FEM  to  the  model  equa¬ 
tions,  Eqns.  (2.26),  (2.29)  and  (2.30).  The  nodal  values  of  the  right- 
hand-sides  of  these  equations  were  evaluated  using  the  methods  of  this 
section. 

4.2  The  Application  of  the  FEM  to  the  Model  Equations 

The  model  equations,  Eqns.  (2.26),  (2.29)  and  (2.30),  are  of 


the  form: 


' 
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V2<f>  -  X2<J>  =  f(x,v) 


(4.22) 


which  is  a  Helmholtz  equation.  Staniforth  and  Mitchell  (1977)  have 
shown  that  the  variational  principle  corresponding  to  Eqn.  (4.22)  is: 


K4>) 


r 

( {  V 4)  }  2  +  X  24> 2  4-  2f<p)  dxdy 

J  • 

D 


(4.23) 


2 

given  the  boundary  condition  Eqn.  (2.33).  Here,  (  V<J>  )  = 

(  9cJ>  /  9x  ) 2  +  (  94/  9y  ) 2 . 


Staniforth  and  Mitchell  (1977,  1978)  have  shown  that  with  the 
basis  functions  defined  by  Eqn.  (4.1),  the  approximate  minimization  of 
I  (<{>)  in  Eqn.  (4.23),  using  the  -Rayleigh-Ritz  method,  yields  a  solution 
with  second-order  accuracy  on  any  sub-domain  with  uniform  grid  spacing. 
They  discuss  an  alternate  approach  using  the  Galerkin  method  which 
yields  a  fourth-order  solution  on  any  uniform  sub-domain.  This  is  the 
method  used  in  this  thesis. 


Applying  the  Galerkin  method  to  Eqn.  (4.22)  yields: 


V24>ek(x)  dxdy  -  X2 


4>e  (x)  dxdy  = 


fek(x)  dxdy  (4.24) 
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D 
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where  X  is  assumed  to  be  a  constant  over  the  domain.  If  4  and  f  are 
expanded  using  the  bi-linear  basis  functions,  the  second-order  solution 


obtainable  from  the  Rayleigh-Ritz  method  is  found.  Eqn.  (4.24)  may 
be  written: 


x. 


y. 


y. 
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X  . 
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i-i  yj-i 


fe  dxdv  (4.25) 


as  the  basis  function  e  for  the  node  (i,j)  is  non-zero  only  over  the 
four  rectangles  adjoining  that  node. 


To  demonstrate  the  technique  for  finding  the  fourth-order 

solution,  consider  the  element  which  has  the  node  (i,j)  in  its  lower 

left  hand  comer,  i.e.  for  which  we  have  x.  <  x  <  x.,,  and  y.  <  y  <  y .  , , 

1  —  —  l+l  j  —  —  j+1 

For  this  element,  the  right-hand-side  of  Eqn.  (4.25)  may  be  written: 


R 


Xi+1  yj+l 


Xi  y3 


fe  dxdy 


(4.26) 


Following  Staniforth  and  Mitchell  (1978) ,  f  is  assumed  to  be  symmetric 

about  x.,  y  and  R  is  therefore  evaluated  as  one-quarter  of  the  doubly 
1 

symmetric  integral  over  four  times  the  area,  viz: 


R 


1 

4 


x  +H.  y.+K. 

i  i  J  j 


f  e  dxdy 


(4.27) 
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where  H±  =  xi+1  -  x±  and  K_.  =  yj+1  -  y  .  Note  that  in  Eqn.  (4.27), 
e  must  be  re-defined  for  the  new  assumed  grid  and  that  f  is  expanded 
in  terms  of  this  new  e  .  This  interpolate  for  f  is  substituted  into 
Eqn.  (4.27)  and  the  integration  is  performed  yielding  an  expression  for 
R  in  terms  of  the  nodal  values  of  f.  Similar  integrations  of  the  right- 
hand-side  of  Eqn.  (4.25)  are  performed  over  the  three  remaining 
rectangles  adjoining  (i,j).  A  similar  procedure  is  undertaken  to  obtain 
the  left-hand-side,  but  an  integration  by  parts  is  necessary  first. 

For  the  node  (i,j) ,  this  yields  Eqn.  (4.28),  which  Staniforth  and 
Mitchell  (1978)  show  has  fourth-order  accuracy  on  any  uniform  sub- 
domain.  (Eqn.  (4.28)  is  on  page  54.) 


An  equation  similar  to  Eqn.  (4.28)  may  be  derived  for  all 
interior  nodes.  These  equations  form  a  system  of  linear  equations  in 
the  nodal  values  of  the  functions  <p  and  f.  To  complete  this  system  of 
equations,  it  is  necessary  to  impose  the  boundary  conditions. 


Denoting  the  north  boundary  with  j  =  1  and  the  south  boundary 
with  j  =  NJ,  the  first  boundary  condition,  Eqn.  (2.32),  gives: 


<f> 


(4.29) 


and : 


^NI,NJ  ,NJ 


^ 1 ,NJ  ^2 ,NJ 


(4.30) 
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Equation  (4.28) 
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In  order  to  impose  the  second  boundary  condition,  Eqn.  (2.33), 
the  integrand  in  Eqn.  (2.33)  is  expanded  using  the  basis  functions. 

At  the  northern  boundary,  this  gives: 


3  <}> 
3v 


i,  1 


<P.  n-<P_. 


i il 


(4.31) 


and  at  the  southern  boundary,  it  yields: 


3j£ 

3y 


i  ,NJ 


cb  — 6 

i,NJ  yi,NJ-l 


VNJ-1 


(4.32) 


for  i  =  1,  2,  .  .  .,  NI.  In  Eqns.  (4.31)  and  (4.32),  <J>  =  dip/dt. 
Eqn.  (2.33)  is  of  the  form: 


L 

x 

• 

g  dx  =  0  (4.33) 

« 

0 

Expanding  g  with  the  bi-linear  basis  functions  and  integrating  Eqn. 
(4.33),  one  obtains: 


(hNI-l+hl)gl 


.+(h1+h2)g2 


(hNI-2+hNI-l)gNI-l,i  °  (4-34) 


Substituting  Eqns.  (4.29)  -  (4.31)  into  Eqn.  (4.34)  and  noting 


that  in  Eqn.  (2.34),  g  =  3<j>/3y,  one  obtains: 


. 
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*B,1  2Lx^l)2<'hNI-l+hl)  +  <*,2>2(hl+h2'>  +' 


*NI-l,2(hNI-2+hNI-l))  <4'35) 


where  ^  is  the  value  of  <j)  at  all  nodal  points  along  the  northern 
boundary.  Similarly,  the  expression  for  the  nodal  values  on  the 
southern  boundary,  4>^  is  found  to  be  given  by: 


,NJ  2L  ^l.NJ-l^NI-l4*1!^  +  <j52,NJ-l('hl+h2-)  +' 


^NI- 1 , NJ- 1 (hNI-2+hNI- 1 ^  (4.36) 


If  the  vectors  and  f_  are  defined  to  be  vectors  of  all 
(both  interior  and  boundary)  nodal  values  of  their  respective  functions, 
Eqns.  (4.35)  and  (4.36)  may  be  combined  with  all  equations  similar  to 
Eqn.  (4.28)  to  obtain  a  complete  system  of  linear  equations.  This  may 
be  written  in  matrix  form  as: 


(4.37) 


An  approximate  solution  to  the  Helmholtz  equation,  Eqn. 


(4.22),  with  the  boundary  conditions  given  by  Eqns.  (2.32)  and  (2.33), 
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may  be  found  by  solving  the  matrix  equation,  Eqn.  (4.37).  The  proce¬ 
dure  for  doing  this  is  described  in  Section  4.4. 

4.3  The  Energy  and  Potential  Enstrophy  Relations 

The  evaluation  of  the  kinetic  energy,  the  available  potential 
energy,  and  the  potential  enstrophy  for  the  finite-element  solution 
is  done  by  approximating  Eqns.  (2.36),  (2.38)  and  (2.43)  with  equations 
which  are  numerically  integrated.  These  three  equations  have  the  form: 


(4.38) 


Z  =  a  f(x,y)  dxdv 


where  a  is  a  constant  and  z  represents  the  KE,  PE  or  APE.  The  nodal 
values  of  the  integrand,  f  (x,y) ,  are  evaluated  using  the  results  of 
Section  4.2.  This  is  done  using  Eqns.  (2.36),  (2.38)  and  (2.43)  to 
define  the  integrand  for  the  KE,  APE  and  PE  respectively.  In  order 
to  perform  the  integration,  Eqn.  (4.38)  is  approximated  by  a  simple 
finite-difference  representation : 


h .  +  h.  *\ 
l  l-l 


f k.  +  k.  > 


(4.39) 


2 


2 


i  J 


where  the  f  are  the  nodal  values  of  the  integrand,  f  (x,y) . 

ij 


. 
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The  limits  of  the  summations  in  Eqn.  (4.39)  must  be 
defined.  In  the  definitions  of  KE,  APE  and  PE  in  Section  2.3,  we 
considered  the  integration  to  occur  over  the  entire  domain.  Thus, 
the  summation  is  with  i  =  1,  2 ,  .  .  . ,  NI  -  1  and  j  =  1,  2,  .  .  . ,  NJ. 
Within  these  limits,  the  conservative  properties  of  the  solution  by 
the  FEM  are  checked  and  the  results  are  presented  in  Chapter  5. 

It  is  also  of  interest  to  calculate  the  KE,  APE  and  PE  in 
the  region  where  the  solution  by  the  FEM  has  the  greatest  accuracy, 
i.e.  the  sub-domain  with  uniform  resolution.  This  will  enable  a  better 
judgement  of  the  potential  accuracy  of  the  solution  using  the  FEM. 

For  the  cases  presented  in  Chapter  5,  this  is  done  for  the  area  marked 
C  in  Fig.  4.1.  These  calculations  are  done  for  the  spectral  solution 
as  well  so  the  two  solutions  can  be  compared.  To  do  this,  it  was 
necessary  to  calculate  the  nodal  values  of  the  spectral  solution. 

4.4  The  Solution  Algorithm 

The  five  steps  for  the  solution  of  the  model  equations 
(Eqns .  (2.26),  (2.29)  and  (2.30))  using  the  FEM  are: 

1)  to  determine  the  right-hand-sides  of  the  model  equations. 

2)  to  solve  the  system  of  equations  resulting  from  the 
discretization  of  Eqns.  (2.26)  and  (2.29)  for 

/V 

dip/dt  and  3i|>/3t,  respectively,  at  time  t. 
to  extrapolate  in  time  to  estimate  ip  and  ip  at  time 
t  +  At,  where  At  is  the  time  step. 


3) 
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4)  to  solve  the  system  of  equations  resulting  from  the 
discretization  of  Eqn.  (2.30)  for  co2  at  t  +  At. 

5)  to  repeat  steps  one  through  four  for  the  desired  number 
of  time  steps. 

The  procedure  used  for  performing  the  first  step  was  des¬ 
cribed  in  Section  4.3.  The  solution  of  a  system  of  linear  equations, 
as  required  by  steps  2  and  4  may  be  done  using  either  direct  or  itera¬ 
tive  methods.  Tong  and  Rossettos  (1977)  provide  a  discussion  of  the 
advantages  and  disadvantages  of  each  method  when  applied  to  finite- 
element  problems.  Their  analysis  indicates  that,  for  the  systems  of 
equations  in  this  thesis,  a  direct  method  would  probably  be  most 
efficient  in  the  use  of  computer  resources.  However,  as  the  computer 
code  was  to  be  used  a  limited  number  of  times,  the  efficient  use  of 
computer  resources  was  judged  to  be  less  important  than  the  efficient 
use  of  programming  time.  Hence,  an  iterative  method  is  used. 

Young  (1971)  describes  many  iterative  methods  and  from  these, 
successive  over-relaxation  (SOR)  is  chosen  as  it  is  relatively  simple 
to  program  and  is  reasonably  efficient  in  the  use  of  computer  resources. 
To  apply  SOR,  the  matrix  A  in  Eqn.  (4.37)  is  split  into  a  lower  tri¬ 
angular,  L,  and  an  upper  triangular,  U,  matrix.  Then,  given  an  initial 
guess  for  the  nodal  values,  j>°,  the  approximate  solution,  ^n,  is  found 
using: 

_  .  n-1 

LAj>_  =  B  f_  -  Aj>_ 


(4.40) 
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+  wAcf) 


(4.41) 


where  w  is  the  over-relaxation  factor.  The  solution  proceeds  by 
iterating  with  Eqn.  (4.41)  and  (4.42)  and  the  superscript  n  refers  to 
the  number  of  the  iteration.  One  continues  iterating  until  the  differ¬ 
ence  between  successive  iterates,  Aj>_,  is  sufficiently  small.  In  the 
present  thesis,  iterations  are  continued  until  the  relative  change  from 
one  iteration  to  the  next  at  all  nodes  in  the  high-resolution  sub-domain 
(Area  C)  is  less  than  .1%. 

The  total  number  of  iterations  needed  for  a  solution  depends 
critically  on  the  choice  of  the  value  for  the  over-relaxation  factor. 

An  attempt  was  made,  using  techniques  described  by  Young  (1971) ,  to 
objectively  determine  the  optimum  over-relaxation  factor,  i.e.  the  one 
which  resulted  in  the  minimum  number  of  iterations  for  a  solution. 

This  did  not  work  well,  however,  and  a  factor  of  1.795  was  found,  by 
trial  and  error,  to  be  nearly  optimum. 

Step  3  was  accomplished  using  the  Euler  and  Adams-Bashforth 
methods  described  in  Section  3.2.  The  length  of  the  time  step,  At, 
for  the  solution  by  the  FEM  was  chosen  using  different  criteria  than  in 
Section  3.2  however.  Haltiner  (1971)  shows  that  to  prevent  computa¬ 
tional  instability,  the  fastest  travelling  wave  in  the  solution  must 
move  less  than  one  grid  interval,  Ax,  in  one  time  step,  At.  This  leads 
to  the  following  condition: 
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CAt 

Ax 


(4.42) 


for  a  two-dimensional  domain  where  C  is  the  speed  of  the  fastest 
travelling  wave.  This  criterion  was  derived  using  finite-difference 
methods  rather  than  finite-element  methods  for  the  discretization  of 
the  space  coordinates.  However,  the  physical  interpretation  of  this 
criterion  presented  by  Haltiner  (1971)  suggests  that  it  could  at  least 
be  used  as  a  guideline  for  the  present  work.  For  synoptic-scale 
systems,  in  quasi-geos trophic  models  where  sound  and  gravity  waves  are 
not  permitted,  Holton  (1972)  estimates  50  m/ s  to  be  the  maximum  value 
of  C.  With  this  value  and  a  time  step  of  1/2  hour,  Eqn.  (4.42)  indi¬ 
cates  that  computational  instability  should  be  prevented  in  the  present 
model  for  all  portions  of  the  grid  with  grid  spacing  greater  than 
127  km.  Thus,  only  in  a  very  narrow  band,  near  the  north  and  south 
boundaries  of  the  present  grid,  is  the  possibility  of  computational 
instability  indicated.  A  time  step  of  1/2  hour  is  used  as  it  will  mean 
that  the  time  truncation  errors  in  both  methods  of  solution  are  the  same 
and  because  the  criterion  have  suggested  that  computational  instability 
is  unlikely  to  be  a  major  problem. 
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CHAPTER  5 

THE  RESULTS 


5.1  Introduction 

The  model  equations  derived  in  Chapter  2  are  solved  using 
both  the  spectral  and  the  finite-element  methods,  as  discussed  in 
Chapters  3  and  4.  In  this  chapter,  some  examples  of  the  solutions 
obtained  using  these  methods,  with  various  initial  conditions,  will 
be  presented.  In  the  accompanying  discussion,  some  of  the  strengths 
and  weaknesses  of  the  finite-element  solution  will  be  demonstrated 
through  a  comparison  with  the  spectral  solution.  Prior  to  presenting 
these  results,  a  discussion  of  some  of  the  conventions  used  and  the 
numerical  values  of  certain  constants  will  be  given. 

A  total  of  four  sets  of  initial  conditions  will  be  presented 
with  both  methods  of  solution  used  for  all  four.  Cases  I,  II  and  III 
are  model  atmospheres  which,  initially,  favour  the  conversion  of  APE 
to  KE.  This  conversion  leads  to  a  development  (amplification)  of  the 
wave  in  the  mean  height  field.  The  cases  will  be  referred  to  as 
weakly,  moderately,  and  strongly  developing  cases.  Case  IV  is  a  model 
atmosphere  in  which  a  conversion  of  KE  to  APE  takes  place.  The  wave  in 
the  mean  height  field  decays  and  this  is  called  the  decaying  case. 

As  shown  in  Chapter  3,  the  spectral  solution  allows  only 
waves  of  wavenumber  n  in  the  x— direction  to  exist.  This  wavenumber 
must  be  chosen  and  its  value  determines  the  scale  of  motion  to  be  consi- 
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dered.  As  mid-latitude  synoptic  scale  motions  are  to  be  studied,  a 
wavenumber  of  3  to  9  is  appropriate.  For  the  chosen  channel  length, 
these  wavenumbers  lead  to  waves  with  wavelengths  of  the  order  of 
thousands  of  kilometers.  Holton  (1972)  suggests  that  wavenumber  7 
is  close  to  the  average  wavenumber  of  mid-latitude  synoptic  systems. 

He  also  shows  that  this  wave  is  near  the  wavelength  of  maximum  baro- 
instability,  i.e.  the  wavelength  which  becomes  baroclinically 
unstable  with  the  lowest  thermal  contrast.  A  wavenumber  of  7  is  used 
in  all  the  cases  in  this  chapter. 

The  static  stability  parameter,  a,  is  defined  by  Eqn.  (2.16). 

It  is  calculated  by  writing  Eqn.  (2.16)  in  finite-difference  form 

using  a  central  difference  about  500  mb.  Tabulated  values  of  0  and  p 

for  the  ICAO  standard  atmosphere  were  used  to  find  a  =  2.8  x  10  ^ 

4  2-2 

m  s  kg  This  is  within  25%  of  the  value  assumed  by  Holton  (1972) 
for  mid-latitude  synoptic  scale  systems. 

Teweles  and  Wobus  (1954)  developed  the  SI  score  for  comparing 
two  fields  with  their  values  determined  at  grid  points.  This  score 
is  used  later  in  this  chapter  as  an  aid  in  comparing  the  solutions  by 
the  two  methods.  The  SI  score  compares  the  gradients  of  the  fields 
rather  than  their  magnitudes,  for  example.  Such  a  comparison  is  signi¬ 
ficant  meteorologically  because  the  gradient  in  the  stream  function 
determines  the  wind  speed  and  direction,  through  the  geostrophic  wind 
relation,  Eqn.  (2.7).  The  wind  and  the  vertical  wind  shear  are  more 
important  weather  elements  than  the  actual  value  of  the  stream  function 


1  < 
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at  a  point,  because  they  determine  the  potential  for  baroclinic  and 
barotropic  growth  of  weather  systems. 

To  calculate  the  SI  score,  one  first  calculates  the  gradients 
in  the  two  fields  which  are  being  compared.  In  the  present  work,  the 
components  of  the  gradients  of  the  two  fields  in  the  x  and  y  direc¬ 
tions  are  calculated  for  all  points  in  the  verifying  area  (area  C  of 
Fig.  4.1)  including  the  boundaries  of  that  area.  If  e  is  defined  to 

VJ 

be  the  difference  between  the  gradients  of  the  two  fields  at  a  point 
and  is  defined  to  be  the  larger  of  the  two  gradients,  the  SI  score  is 
calculated  using  the  formula: 


SI  =  100 


(5.1) 


where  the  summation  occurs  over  all  points  in  the  verifying  area  and 
both  components  of  the  gradients  are  compared  at  each  point.  The  SI 
score  varies  from  0  to  100  with  lower  values  indicating  a  greater  agree¬ 
ment  of  the  two  fields. 

The  mean  difference  (MD)  and  mean  absolute  difference  (MAD) 
between  the  finite— element  and  spectral  solutions  are  also  calculated 
over  the  verification  area.  In  both  the  MD  and  the  MAD,  the  finite- 
element  solution  is  subtracted  from  the  spectral  solution  at  all  grid 
points  within  area  C,  including  the  boundaries.  The  mean  used  is  the 


arithmetic  mean. 
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During  initial  test  runs,  it  was  found  that  waves  of  short 
wavelength  were  being  generated  along  the  northern  and  southern 
boundaries  when  the  finite— element  solution  was  computed.  These  waves 
grew  in  amplitude  and  moved  away  from  the  boundary,  gradually  contam¬ 
inating  the  solution  by  the  FEM  even  in  the  high-resolution  sub-domain. 
Investigations  indicated  that  a  major  cause  of  these  waves  was  the 
poor  evaluation  of  the  vorticity  near  the  boundary.  In  particular, 
the  evaluation  of  the  second  derivative  of  the  stream  function  in  the 
y-direction  was  subject  to  a  large  error  near  the  boundary.  A  simple 
3-point  smoothing  algorithm  was  introduced  to  damp  these  waves.  Thus, 
if  the  function  f  (x)  is  known  at  the  grid  points  (x^,  x^,  .  .  .,  x^)  , 
the  smoothed  function,  g  (x) ,  at  the  point  x^  is  given  by: 

S  (x  ) 

g(xj  =  (1  -  S(xi))f(xi)  + — —  (f(x.+1)  +  fCx^))  (5.2) 

where  S  (x^)  is  the  smoothing  parameter  at  x^.  This  smoother  was 
applied  to  the  calculated  vorticity  field  in  the  vicinity  of  the  north¬ 
ern  and  southern  boundaries.  It  was  applied  to  the  vorticity  field 
each  time  it  was  evaluated,  first  in  the  y-direction  and  then  in  the 
x-direction.  Although  most  smoothing  was  necessary  in  the  y-direction, 
some  smoothing  in  the  x-direction  was  found  to  be  helpful  in  controlling 
the  spurious  waves  near  the  boundary.  For  the  six  grid  points  nearest 
the  boundary,  the  smoothing  parameters  were  .30,  .50,  .30,  .15,  .08, 
and  .02.  The  largest  values  were  near  the  northern  and  southern  boun¬ 
daries.  The  smoothing  parameter  was  zero  for  all  other  interior  grid 
points.  The  smoothing  parameters  for  the  first  six  interior  lines  of 
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grid  points  in  the  x-direction,  adjacent  to  and  including  the  northern 
and  southern  boundaries,  were  .10,  .15,  .10,  .05,  .01  and  .005. 

The  values  for  the  smoothing  parameters  were  determined  by 
trial  and  error.  This  set  of  parameters  seemed  to  have  little  effect 
on  the  long  wavelengths  of  interest  but  controlled  the  spurious  short 
wavelengths  reasonably  well.  It  was  found  that  using  this  smoothing 
also  reduced  the  amount  of  computation  time  by  10  -  15%  as  it  allowed 
more  rapid  convergence  to  occur  in  the  solution  of  the  boundary  value 
problems  by  relaxation. 

In  displaying  the  height  and  thickness  fields  later  in  this 
chapter,  the  stream  functions  for  the  mean  height  and  thickness  fields 
have  been  converted  to  a  height  in  meters.  This  was  easily  done  as, 
in  this  model,  the  gravitational  constant,  g,  is  assumed  to  be  indepen¬ 
dent  of  height.  Following  Holton  (1972),  the  height  in  meters,  z,  is 
obtained  using: 

f 

z  =  ^  —  (5.3) 

g 

2  — 
where  g  =  9.806  ms.  The  stream  function,  i|;,  is  either  ip  or  ip,  depen¬ 
ding  on  which  field  is  being  converted. 

The  omega  fields  displayed  have  the  units  ybar/sec.  This  is 
the  unit  which  is  commonly  used  as  it  gives  values  of  the  order  of  1. 

It  should  be  noted,  however,  that  negative  omega  values  imply  ascent. 
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In  the  display  of  these  fields,  roughly  two-thirds  of  the 
total  domain  in  Fig.  4.1  is  shown.  Referring  to  Fig.  5.1,  for  example, 
the  lower  panel  is  area  A  of  Fig.  4.1  while  area  B  of  Fig.  4.1  is  the 
upper  panel.  With  this  display,  both  the  high  and  low  resolution 
portions  of  the  two  solutions  may  be  easily  compared. 

As  previously  stated,  area  C  of  Fig.  4.1  is  the  verification 
area.  This  is  the  sub-domain  over  which  the  various  energy  quantities, 
the  PE,  the  SI  score,  the  MD  and  the  MAD  are  calculated,  as  shown, 
for  example,  in  Figs.  5.10  -  5.12.  The  KE,  APE  and  PE  are  also 
calculated  over  the  whole  domain  for  some  of  the  cases. 

5.2  Case  I  -  Weak  Development 

Case  I  is  an  example  of  a  weakly  developing  situation. 

Figs.  5.1  and  5.2  show  that,  initially,  the  trough  in  the  thickness 
field  lags  (i.e.  is  west  of)  the  trough  in  the  mean  height  field  by 
90°.  When  the  trough  in  the  thickness  field  lags  the  trough  in  the 
height  field  by  between  0°  and  180°,  the  perturbations  (i.e.  the  waves) 
in  the  mean  height  field  will  amplify.  In  this  process,  the  flow 
becomes  more  meridional  and  the  amplitude  of  the  wave  increases. 

Holton  (1972)  shows  that  this  amplification  will  occur  most  rapidly 
when  the  lag  is  90°.  Holton  (1972)  did  a  linear  analysis  of  an  atmos¬ 
pheric  model  similar  to  the  one  under  consideration.  He  found  that 
if  the  gradients  in  the  thickness  field  were  less  than  a  critical  value, 
the  waves  would  not  develop,  i.e.  they  were  stable  waves.  With  the 
values  used  in  the  present  study,  his  analysis  suggests  the  wave  should  be 
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stable  for  this  case.  Due  to  model  differences  and  non-linear  inter¬ 
actions,  the  wave  does,  in  fact,  develop. 

As  was  discussed  in  Section  2.1,  this  growth  is  due  to  the 
baroclinic  conversion  of  energy  from  APE  to  KE  through  the  lowering  of 
the  centre  of  mass  of  the  atmosphere.  This  will  be  demonstrated  more 
clearly  when,  later  in  this  section,  Fig.  5.10a  is  discussed. 

The  spectral  solution  (SP)  after  twenty-four  hours  of  inte¬ 
gration  is  given  in  Figs.  5.4  -  5.6.  The  wave  in  the  height  field 
has  undergone  the  expected  development  and  retrogressed  15°.  The 
thickness  field  has  developed  slightly  and  progressed  eastward  10°. 

Thus,  the  phase  difference  between  the  two  fields  has  been  reduced  by 
25°.  The  omega  field  has  amplified  somewhat  during  the  period  and  has 
retrogressed  22°. 

Figs.  5.1  -  5.2  are  also  the  initial  conditions  used  for 
the  solution  by  the  FEM.  Figs.  5.7  -  5.9  are  the  resulting  twenty- 
four  hour  forecasts  for  the  height,  thickness  and  omega  fields, 
respectively.  Only  a  very  detailed  comparison  of  the  forecasts  produced 
by  the  two  methods  reveals  any  differences  between  them  over  the  high- 
resolution  portion  of  the  grid.  Near  the  boundaries,  it  is  apparent 
that  the  troughs  and  ridges  in  the  height  field  of  the  finite-element 
solution  (FE)  have  retrogressed  slightly  faster  than  those  of  the  SP. 
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The  diagnostic  omega  fields  for  the  two  solutions,  Figs. 

5.6  and  5.9,  are  considerably  different,  however.  The  maxima  in 
the  omega  field  are  larger  in  the  FE  and  are  closer  to  the  southern 
boundary  in  the  FE  than  in  the  SP.  The  minima  of  the  FE  behave  in 

an  analogous  manner,  i.e.  they  are  more  negative  and  are  closer  to 

the  northern  boundary  than  are  those  of  the  SP.  Whereas  the  SP  has  a 

value  very  near  0.0  at  the  boundary,  the  boundary  value  of  the  FE  is 
somewhat  larger  than  0.0,  in  absolute  magnitude.  Investigations 
revealed  that  this  remarkable  difference  in  the  two  omega  fields  was 
present  even  at  the  initial  time.  Thus,  this  difference  is  not  due 
to  the  development  and  growth  of  errors  during  the  integration  but 
rather  due  to  the  evaluation  of  the  diagnostic  omega  field  of  the  FE. 
Using  the  boundary  condition,  Eqn.  (2.32),  one  may  readily  show  that 
the  right-hand-side  of  Eqn.  (2.30)  should  be  zero  on  the  boundary,  for 
the  chosen  initial  conditions.  However,  since  the  estimate  of  the 

A 

vorticity,  Q,  is  very  poor  on  the  boundary,  the  term  J(ip,Q)  is  subject 
to  a  large  error  on  the  boundary.  When  the  boundary  value  of  the  omega 
field  is  in  error,  the  interior  values  of  the  omega  field  are  also  in 
error.  The  poor  estimation  of  the  vorticity  near  the  boundary  also 
causes  an  error  in  the  evaluation  of  the  right-hand-sides  of  Eqns. 
(2.26)  and  (2.29).  However,  this  error  is  not  as  easily  seen  in  these 
cases  as  one  is  dealing  with  an  error  in  the  forecast  of  a  relatively 
small  change  (i.e.  dip/dt )  in  a  large  quantity  (i.e.  ip) . 

The  evaluation  of  the  boundary  condition,  Eqn.  (2.33),  also 
makes  a  contribution  to  the  errors  near  the  boundaries.  This  boundary 
condition  requires  an  integration  along  the  boundary.  Thus,  values 
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from  both  the  high  and  low  resolution  portions  of  the  grid  are  used 
to  find  the  boundary  condition  for  the  entire  boundary.  This  effec¬ 
tively  increases  the  truncation  error  in  the  x-direction,  along  the 
entire  boundary,  to  that  of  the  portion  of  the  boundary  with  the 
lowest  resolution. 

The  resolution  in  the  y-direction  is  very  high  near  the 
boundary.  This  band  with  high  resolution  along  the  boundaries  was  used 
to  try  to  reduce  the  errors  along  the  boundaries.  With  such  resolu¬ 
tion,  a  better  estimate  of  the  vorticity  on  and  near  the  boundary  can 
be  obtained.  In  addition,  the  evaluation  of  the  boundary  condition, 

Eqn.  (2.33),  has  greater  accuracy  as  the  truncation  error  present  in 
the  discretization  of  9i|»/8y  is  reduced.  Because  of  this  area  of  high 
resolution,  however,  a  shorter  time-step  must  be  used  in  the  integration 
to  prevent  computational  instability,  as  was  discussed  in  Chapter  4. 

Cullen  (1976),  Grammeltvedt  (1969)  and  others  have  used 
different  initial  conditions  when  performing  numerical  experiments  with 
this  model  on  this  domain.  Their  initial  conditions  were  characterized 
by  fields  with  very  little  variation  in  the  stream  functions  near  the 
boundary.  In  effect,  then,  there  was  a  buffer  of  600  -  800  km.  between 
the  boundary  and  the  region  of  interest.  This  approach  was  not  used  in 
the  present  work,  however,  because  the  highly  accurate  spectral  solution 
would  not  have  been  available  for  comparison. 

Fig.  5.10a  shows  the  evolution  of  the  TE,  KE  and  APE  in  the 
verification  area  (area  C  of  Fig.  4.1)  for  the  two  solutions  during  the 
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forecast  period.  The  TE  of  the  SP  increases  by  approximately  30% 
during  the  period  of  integration.  This  is  not,  however,  in  violation 
of  the  conservation  of  TE,  which  was  demonstrated  in  Chapter  3,  as 
this  TE  has  been  calculated  only  in  the  verification  area  and  not  over 
the  whole  domain.  As  noted  in  Chapter  3,  the  conservation  of  the  TE 
of  the  SP  over  the  whole  domain  was  verified  for  a  wide  variety  of 
initial  conditions.  The  increase  of  the  TE  of  the  SP  in  area  C  is  due 
to  the  motion  of  the  fields  and  the  development  of  the  fields  during 
the  forecast  period. 

Referring  to  Fig.  5.10a,  we  see  that  the  gain  in  TE  of  the 
SP  is  due  to  a  gain  in  KE  while  the  APE  has  remained  nearly  constant. 
Thus,  during  the  development  of  the  waves,  APE  has  been  converted  to  KE 
but  also,  in  the  verification  area,  there  has  been  energy  imported. 

It  is  not  possible  to  say  what  proportion  of  the  gain  in  KE  is  due  to 
importation  and  what  proportion  is  due  to  development. 

Fig.  5.10a  confirms  that,  with  respect  to  the  three  energy 
quantities,  the  FE  has  performed  well.  The  TE  of  the  FE  has  decreased 
relative  to  the  SP  in  the  verification  area.  The  FE  has  lost  approxi¬ 
mately  2%  of  the  TE  in  the  verification  area.  This  small  error  is  seen 
to  be  due  to  a  loss  in  the  APE  of  the  FE  relative  to  the  SP,  while  it 
is  noted  that  the  KE  of  the  FE  is  extremely  close  to  that  of  the  SP. 

The  growth  rate  of  the  error  seems  to  be  nearly  linear,  with  the  error 
first  being  noticeable  after  approximately  ten  hours  of  integration. 
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Fig.  5.10b  indicates  that  the  FE  has  also  lost  a  small  amount 
of  PE  relative  to  the  SP.  The  total  loss  is  only  .4%.  Careful  scrutiny 
of  Fig.  5.10b  reveals  that  the  FE  actually  gained  PE  relative  to  the 
SP  for  the  first  twelve  hours  and  then  lost  PE  for  the  last  12  hours. 

The  small  variation  of  the  PE  of  the  FE  about  that  of  the  SP  indicates 
that  the  FE  behaves  quite  well  in  this  case. 

In  Fig.  5.11a,  the  KE  of  the  two  solutions  is  presented  in 
the  zonal  and  eddy  forms,  while  Fig.  5.11b  gives  the  corresponding 
values  for  the  APE.  As  noted  earlier,  the  KE  of  the  two  solutions  is 
essentially  the  same.  However,  the  FE  has  lost  ZKE  relative  to  the  SP 
and  gained  an  equal  and  opposite  amount  of  EKE.  There  is  roughly  a  1% 
difference  in  the  ZKE  between  the  two  solutions.  The  loss  in  the  APE  of 
the  FE  relative  to  the  SP  is  seen  to  be  due  to  a  loss  of  ZAPE  while  the 
EAPE  of  the  two  solutions  is  essentially  the  same. 

The  reasons  for  the  differences  between  the  two  solutions,  as 
shown  in  Figs.  5.10  and  5.11,  are  rather  hard  to  determine  precisely. 

As  mentioned  previously,  there  are  errors  in  the  FE  due  to  space  and 
time  discretization.  Also,  it  has  been  shown  previously  that,  as  a 
result  of  space  discretization,  significant  errors  can  occur  near  the 
boundary  due  to  the  imperfect  implementation  of  the  boundary  condition. 
As  the  time  discretization  scheme  is  the  same  for  both  models,  it  is 
expected  that  this,  by  itself,  makes  only  a  very  small  contribution  to 
the  differences  between  the  two  solutions.  It  seems  probable,  however, 
that  the  loss  in  ZAPE  of  the  FE  relative  to  the  SP  is  due  to  the  poor 
evaluation  of  the  boundary  condition  since  the  boundary  value  plays  a 
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relatively  larger  role  in  the  determination  of  the  zonal  quantities 
than  of  the  eddy  quantities.  The  error  in  the  ZKE  of  the  FE  is  thought 
to  be  smaller  because  the  boundary  condition  on  the  height  field  is 
satisfied  better  than  the  one  for  the  thickness  field.  In  this  model, 
the  boundary  value  of  the  height  field  should  not  change  with  time  but 
that  of  the  thickness  field  does.  It  was  found  that  the  forecast 
change  in  the  thickness  field  on  the  boundary  in  the  FE  was  subject  to 
a  large  error  but  that  the  FE  maintained  the  boundary  value  of  the 
height  field  fairly  well.  It  is  to  be  noted  that  the  thickness  field 
determines  the  APE  whereas  the  KE  is  determined  by  both  the  thickness 
and  height  fields.  The  small  errors  in  the  eddy  forms  of  the  energy 
quantities  are  thought  to  be  due  to  a  combination  of  the  various  errors. 
It  is  probable  that,  during  the  initial  few  hours,  errors  due  to  space 
discretization  are  most  important.  As  the  integration  proceeds,  errors 
from  the  boundary  will  gradually  infiltrate  the  high-resolution  portion 
of  the  domain  and  become  more  important. 

Fig.  5.12a  gives  the  SI  scores  for  the  FE  relative  to  the  SP . 
There  is  nearly  a  linear  growth  of  the  SI  score  for  both  the  height  and 
thickness  fields  with  the  SI  score  for  the  height  field  growing  more 
rapidly.  In  the  development  of  this  score,  Teweles  and  Wobus  (1954) 
indicated  that,  in  the  forecasting  of  the  real  atmosphere,  an  SI  score 
of  under  30  could  be  considered  a  perfect  forecast  while  an  SI  score  of 
over  70  would  indicate  a  useless  forecast.  For  the  present  integration, 
the  SI  score  has  only  grown  to  near  5  which  indicates,  according  to 
Teweles  and  Wobus 's  subjective  criteria,  an  exceptional  forecast. 
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However,  care  must  be  exercised  here.  In  the  present  study,  a  highly 
simplified  model  atmosphere  is  used  and  only  a  very  limited  number  of 
types  of  waves  are  allowed,  in  contrast  to  many  types  of  wave  motion 
possible  in  the  real  atmosphere.  Also,  in  the  present  study,  the  ini¬ 
tial  conditions  are  very  well  specified  and  this  is  not  true  of  fore¬ 
casts  for  the  real  atmosphere  where  the  initial  conditions  must  be 
specified  by  some  objective  analysis  of  actual  reported  data.  Thus, 
it  seems  reasonable  to  assume  that  the  si  scores  for  the  present  study 
should  be  significantly  lower  than  what  might  be  expected  of  forecasts 
of  the  real  atmosphere.  It  is  difficult,  however,  to  objectively  deter¬ 
mine  how  small  the  score  should  be  to  conclude  that  a  "good"  forecast 
has  been  generated.  The  differences  which  were  seen  between  the  two 
forecasts  were  very  small  and  this,  at  least,  gives  one  the  impression 
that  the  FE  was  very  close  to  the  SP  and  that,  therefore,  SI  scores  of 
about  5  or  less  indicate  a  good  forecast.  With  the  presentation  of  the 
remaining  cases,  an  approximate  upper  limit  for  the  SI  score  representing 
a  good  forecast  may  be  found. 

Fig.  5.12b  shows  that,  in  the  mean  over  the  verification  area, 
the  height  field  of  the  SP  is  0.24  m  higher  than  that  of  the  FE  and  that 
the  thickness  of  the  SP  is  0.08  m  lower  than  that  of  the  FE.  Considering 
that  the  fields  under  consideration  have  magnitudes  of  nearly  100  m  and 
that  some  points  in  the  height  field  underwent  changes  of  nearly  30  m 
during  the  forecast  period,  these  MD  errors  are  quite  respectable.  The 
MD  for  the  height  field  is  larger  than  that  for  the  thickness  field 
because  there  were  larger  changes  in  the  height  field  during  the  fore¬ 
cast  period. 
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Fig.  5.12b  also  gives  the  MAD  between  the  two  solutions  in 
the  verification  area.  The  MAD  for  both  fields  grows  to  nearly  1.10  m 
during  the  period  of  integration.  The  MAD  for  the  thickness  field  shows 
nearly  linear  growth  while  that  for  the  height  field  appears  to  be 
closer  to  exponential  growth. 

It  is  interesting  to  note  that  while  the  MD  for  the  thickness 
field  was  smaller,  in  absolute  value,  than  that  for  the  height  field, 
the  MAD  for  the  thickness  field  is  larger  than  that  for  the  height  field. 
Thus,  the  errors  in  the  thickness  field  are  smaller  than  those  of  the 
height  field  but  there  is  a  greater  bias  in  the  errors  of  the  thickness 
field  than  in  the  height  field.  In  effect,  these  results  suggest  that 
although  the  error  at  individual  points  is,  in  general,  smaller  in  the 
thickness  field  than  in  the  height  field,  the  mean  of  the  thickness 
field  is  not  being  kept  constant  as  well  as  is  that  of  the  height  field. 
It  is  not  possible  to  suggest  the  precise  cause  of  this  at  this  time. 

An  interesting  comparison  may  be  made  between  Figs.  5.12  and 
5.11.  Fig.  5.11  shows  that  the  KE  of  the  FE  is  closer  to  that  of  the  SP 
than  is  the  APE.  Fig.  5.12a  shows  that  the  gradient  of  the  thickness 
field  is  forecast  well  while  in  Fig.  5.12b,  we  have  seen  that  the  fore¬ 
cast  magnitude  of  the  thickness  field  has  a  bias  in  it.  The  KE  depends 
on  the  gradient  of  the  thickness  field  while  the  APE  depends  on  the 
magnitude  of  the  thickness  field.  Given  that  the  ZAPE  is  in  error  by 
the  largest  amount,  it  is  suggested  that  the  errors  in  the  forecast 
magnitudes  of  the  thickness  field  are  produced  largely  by  a  poor  imple¬ 
mentation  of  the  boundary  condition. 
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5.3  Case  II  -  Moderate  Development 

Case  II  is  a  situation  favourable  for  greater  development  than 
Case  I.  Figs.  5.13  and  5.14  show  that,  initially,  the  trough  in  the 
thickness  field  lags  the  trough  in  the  mean  height  field  by  90°.  The 
thickness  field  for  this  case  is  very  similar  to  that  of  Case  I,  but  the 
wave  in  the  height  field  is  characterized  by  a  much  larger  amplitude 
for  Case  II  than  for  Case  I.  As  a  result,  the  amplitude  of  the  omega 
field  is  larger  for  this  case,  as  shown  in  Fig.  5.15. 

With  the  larger  meridional  gradient  in  the  height  field  in 
this  case,  a  large  mean  zonal  wind  exists  in  the  domain.  This  means 
that  the  wave  in  the  mean  height  field  is  expected  to  move  faster  than 
in  Case  I.  Also,  the  larger  meridional  variation  in  the  mean  height 
field  implies  greater  thermal  advection  in  this  case.  This  increases 
the  rate  of  baroclinic  development.  Thus,  both  the  rate  of  propagation 
and  rate  of  development  of  the  wave  in  the  mean  height  field  are  expec¬ 
ted  to  have  been  changed  in  Case  II. 

Figs.  5.16  -  5.18  give  the  mean  height,  thickness  and  omega 
fields,  respectively,  after  48  hours  of  integration  with  the  spectral 
method.  (The  length  of  integration  has  been  increased  as  this  will 
provide  a  more  stringent  test  on  the  conservative  properties  and  of  the 
accuracy  of  the  FE.  This  will  also  allow  a  better  investigation  of  the 
possibility  of  computational  instability  in  the  FE.)  The  wave  in  the 
mean  height  field  has  developed  and  progressed  eastward  approximately 
15°.  The  wave  in  the  thickness  field  has  decayed  and  progressed 
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eastward  approximately  45°.  Thus,  the  phase  difference  between  the 
waves  in  the  two  fields  has  been  reduced  to  60°.  The  wave  in  the 
omega  field  has  decayed  slightly  and  progressed  approximately  20°. 

Figs.  5.19  -  5.21  show  the  mean  height,  thickness  and  omega 
fields,  respectively,  for  a  48  hour  forecast  using  the  FEM.  The 
differences  between  the  two  solutions  are  much  more  apparent  in  this 
case  than  in  Case  I.  Referring  to  Figs.  5.16  and  5.19,  it  is  apparent 
that  the  FE  has  not  maintained  the  north-south  anti-symmetry  present 
in  the  SP.  The  troughs  in  the  FE  have  undergone  greater  development 
than  those  of  the  SP  while  the  ridges  of  the  FE  have  not  been  built  as 
high  as  those  of  the  SP.  This  seems  to  be  due  to  problems  with  the 
boundary  values  of  the  FE.  The  SP  has  maintained  a  constant  value  for 
the  mean  height  field  along  the  boundaries  while  the  boundary  value  of 
the  FE  has  changed.  Although  any  of  the  errors  previously  discussed 
could  be  the  cause  of  this,  it  is  probable  the  main  cause  is  the  poor 
evaluation  of  the  vorticity  near  the  boundary.  This,  as  discussed  in 
Sec.  5.2,  was  found  to  be  a  major  source  of  error  near  the  boundary. 

Related  to  the  above  problem  is  the  curvature  in  the  trough 
and  ridge  axes  of  the  FE.  The  SP  has  trough  and  ridge  axes  which  are 
north-south  while  those  of  the  FE  are  slightly  curved.  It  appears  that 
the  speed  of  these  waves  in  the  FE  is  slower  than  those  of  the  SP  near 
the  boundaries  but  is  faster  than  those  of  the  SP  in  the  central  portion 
of  the  domain.  These  errors  are  due,  either  directly  or  indirectly,  to 
the  problems  near  the  boundaries.  The  overdevelopment  of  the  troughs 
of  the  FE  has  led  to  larger  zonal  wind  speeds  in  the  trough  in  the 
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middle  of  the  domain.  This  leads  to  a  more  rapid  progression  of  the 
trough  axis  in  the  central  portion  of  the  domain.  Similarly,  larger 
gradients  in  the  height  field  near  the  ridge  axes  in  the  centre  of  the 
domain  has  caused  a  more  rapid  progression  of  the  ridge  axes.  Near 
the  boundaries,  just  the  opposite  has  happened.  Gradients  have  been 
reduced  and  the  progress  of  the  waves  has  been  retarded. 

Finally,  the  presence  of  a  few  small  amplitude  short  wave¬ 
length  waves  in  the  height  field  of  the  FE  near  the  boundaries  should 
be  noted.  These  are  the  waves  which  the  smoother,  discussed  in  Sec. 

5.1,  was  designed  to  control.  Also  of  note  is  the  absence  of  these 
waves  in  the  region  of  the  domain  where  the  grid  of  the  FE  has  very 
poor  resolution.  The  short  wavelength  waves  could  not  be  resolved  in 
this  portion  of  the  domain. 

Comparing  Figs.  5.17  and  5.20,  it  is  apparent  that  there  are 
vast  differences  between  the  two  solutions  for  the  thickness  field. 

The  FE  has  very  nearly  maintained  the  correct  value  for  the  maximum 
value  of  the  highs  and  the  minimum  value  of  the  lows.  However,  the 
maxima  and  minima  of  the  FE  are  much  closer  to  the  boundaries  than  are 
those  of  the  SP.  This  has  been  caused  by  the  problems  with  the  boundary 
value  of  the  FE.  For  this  case,  the  boundary  value  of  the  SP  has 
changed  very  little  during  the  integration  period  while  the  boundary 
value  of  the  FE  has  definitely  changed  during  this  period. 
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In  the  central  portion  of  the  grid,  the  FE  is  within  a  few 
percent  of  the  SP  however.  The  zero  thickness  isopleth  is  forecast 
very  well  by  the  FE  near  the  centre  of  the  grid  even  in  those  regions 
with  relatively  poor  resolution  in  the  x-direction.  The  phase  speeds 
in  the  central  portion  are  nearly  identical  as  is  the  meridional 
amplitude  of  the  zero  isopleth. 

The  short  wavelength  waves  are  more  noticeable  in  the  thick¬ 
ness  field  of  the  FE  than  they  are  in  the  height  field.  Their  ampli¬ 
tudes  are  small  however.  The  waves  are  not  distinct  enough  in  either 
field  to  judge  whether  these  short  wavelength  waves  are  in  a  position 
favourable  for  development  or  not. 

The  omega  fields  of  the  two  solutions,  shown  in  Figs.  5.18 
and  5.21,  are  drastically  different.  The  trough  and  ridge  axes  of  the 
FE  have  a  distinct  curvature  to  them  whereas  those  of  the  SP  are  straight 
lines  oriented  north-south.  This  curvature  is  simply  a  reflection  of 
the  curvature  of  the  axes  in  the  height  and  thickness  fields  of  the 
FE  found  previously.  The  maxima/minima  of  the  FE  are  more  positive/ 
negative  than  are  those  of  the  SP.  This  is  indicative  of  the  greater 
development  which  the  FE  has  undergone.  Also,  the  maxima  and  minima  of 
the  FE  are  located  nearer  to  the  boundaries  than  are  those  of  the  SP. 

There  are  numerous  spurious  short  wavelength  waves  present  in 
the  omega  field  of  the  FE.  Although  they  are  most  common  and  have 
their  largest  amplitudes  near  the  boundaries,  they  are  also  present  well 
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into  the  domain.  These  waves  in  the  interior  of  the  domain  were  not 
visible  in  the  height  and  thickness  fields  but  they  must  have  been 
there  or  they  would  not  be  present  in  the  omega  field.  Thus,  some 
small  amplitude  short  wavelength  waves  have  propagated  well  into  the 
grid. 


Fig.  5.22a  shows  the  TE,  APE,  and  KE  in  the  verification  area 
for  this  case.  The  TE  of  the  SP  rises  during  the  integration  period 
for  the  reasons  discussed  with  Case  I.  However,  the  TE  of  the  FE  rises 
faster  than  that  of  the  SP.  After  48  hours,  the  TE  of  the  FE  is 
approximately  6%  larger  than  that  of  the  SP.  This  increase  in  TE  is 
due  largely  to  the  increased  gradients  in  the  mean  height  field  of  the 
FE  which  were  seen  earlier.  The  gain  in  the  TE  confirms  that  the  wave 
in  the  mean  height  field  of  the  FE  has  developed  more  than  the  wave  in 
the  SP.  Also,  it  should  be  noted  that  the  divergence  in  the  TE  of  the 
two  solutions  does  not  begin  until  after  twenty-four  hours. 

Further  study  of  Fig.  5.22a  reveals  that  the  gain  in  the  TE 
of  the  FE  relative  to  the  SP  is  due  to  a  large  gain  in  the  KE  of  the  FE 
relative  to  the  SP  which  is  only  partially  compensated  for  by  a  loss  in 
the  APE  of  the  FE  relative  to  the  SP.  The  divergence  of  the  KE  and 
APE  of  the  two  solutions  begins  after  only  twelve  hours  of  integration. 
During  the  period  from  twelve  to  twenty-four  hours,  the  KE  and  APE  of 
the  FE,  although  in  error  with  respect  to  the  SP ,  adjust  themselves  so 
that  the  TE  of  the  two  solutions  is  the  same.  Thus,  during  the  first 
twelve  hours,  the  two  solutions  behave  similarly.  During  the  twelve  to 
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twenty-four  hour  period,  the  FE  converts  APE  to  KE  at  a  faster  rate 
than  does  the  SP.  During  the  final  24  hours,  the  FE  either  imports 
energy  into  the  verification  area  or  it  has  created  some  spurious  source 
of  energy.  It  seems  probable  that  there  has  been  importation  of 
energy.  In  the  FE  relatively  large  amounts  of  KE  have  been  concentrated 
in  the  middle  portion  of  the  domain  while  the  KE  near  the  boundaries 
is  lower  in  the  FE  than  the  SP.  This  can  be  seen  by  comparing  the 
gradients  in  the  mean  height  field  of  the  two  solutions.  A  calculation 
of  the  meridional  momentum  transport  might  have  given  further  insight 
here  but  this  was  not  thought  of  until  after  the  computation  was 
finished . 


Fig.  5.22b  shows  that  the  PE  of  the  FE  is  less  than  that  of 
the  SP  during  the  forecast  period.  The  PE  in  the  verification  area 
changes  significantly  during  the  period  and  the  FE  under-forecasts  the 
change  in  PE  by  nearly  20%.  This  result  is  a  little  surprising  as,  with 
the  greater  development  of  the  FE,  one  would  expect  larger  vorticities 
in  the  FE  than  in  the  SP.  However,  the  troughs  and  ridges  are  sharper 
in  the  SP  than  in  the  FE  and,  thus,  the  vorticity  of  the  FE  is  lower. 
Also,  the  thickness  field  of  the  FE  has  smaller  values  over  the  verifi¬ 
cation  area  than  does  the  SP.  These  effects  both  act  to  give  the  FE  a 
lower  PE  than  the  SP. 

In  Fig.  5.23a,  it  is  seen  that  the  FE  gains  a  significant 
amount  of  ZKE  relative  to  the  SP  while  losing  a  small  amount  of  EKE 
relative  to  the  SP  during  the  forecast  period  in  the  verification  area. 
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The  difference  appears  in  the  ZKE  after  fifteen  hours  and  in  the  EKE 
after  twenty-four  hours.  The  aforementioned  meridional  transport  of 
east-west  momentum  towards  the  centre  of  the  domain  in  the  FE  has 
presumably  led  to  this  increase  in  the  ZKE  in  the  verification  area. 

It  seems  that  EKE  in  the  FE  has  been  converted  to  ZKE  as  well.  This 
is  reflected  in  the  relatively  broad  troughs  in  the  FE.  This,  I 
believe,  is  a  natural  result  of  the  process  of  baroclinic  development. 
During  development,  ZAPE  is  converted  to  EAPE ;  EAPE  is  converted  to 
EKE;  and,  finally,  EKE  is  converted  to  ZKE,  as  discussed  by  Holton 
(1972).  The  wave  in  the  FE  is  at  a  more  advanced  state  of  development 
than  the  wave  in  the  SP.  Physically,  the  wave  in  the  FE  has  presumably 
begun  to  slow  down  its  rate  of  growth  and  soon,  it  is  expected  the  wave 
will  undergo  the  process  of  occlusion  and  begin  to  decay. 

Fig.  5.23b  shows  that,  in  fact,  the  APE  of  the  two  solutions 
is  not  the  same  during  the  initial  twelve  hours  as  suggested  when 
Fig.  5.22a  was  discussed.  The  resolution  of  that  figure  was  not  high 
enough  to  see  that  the  FE  continuously  loses  APE  relative  to  the  SP. 

It  is  important  to  note,  however,  that  in  this  case,  the  APE  is  much 
smaller  than  the  KE.  Thus,  for  this  case,  a  10%  error  in  the  APE  has 
the  same  effect  on  the  TE  as  approximately  a  1%  error  in  the  KE,  i.e. 
the  error  in  the  APE  is  a  less  important  measure  of  the  performance  of 
the  FE  than  is  the  KE. 

The  loss  of  APE  in  the  FE  relative  to  the  SP  is  seen,  in  Fig. 
5.23b,  to  be  due  to  a  loss  of  both  ZAPE  and  EAPE.  During  development, 
there  is  a  conversion  of  ZAPE  to  EAPE.  The  FE  loses  ZAPE  slightly 
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faster  initially  than  the  SP  does  but  the  difference  in  the  ZAPE 
between  the  two  solutions  remains  relatively  small.  However,  after 
twelve  hours,  the  FE  begins  to  lose  EAPE  rapidly  with  respect  to  the 
SP.  It  seems  that  energy  in  the  FE,  during  the  last  thirty-six  hours 
of  development,  is  being  rapidly  transferred  from  ZAPE  through  the 
EAPE  and  EKE  forms  to  ZKE,  i.e.  the  FE  has  an  accelerated  transfer  of 
energy  during  the  baroclinic  development.  The  result  is  a  loss  of 
ZAPE,  EAPE  and  EKE  in  the  FE  relative  to  the  SP  with  only  the  ZKE  of 
the  FE  larger  than  that  of  the  SP.  The  error  in  the  ZKE  begins  to  grow 
most  rapidly  a  few  hours  after  the  error  in  the  EAPE  begins  its  rapid 
growth.  This  suggests  that  there  is  a  causal  relationship  between  the 
two  errors.  The  relationship  is  somewhat  clouded  by  the  possibility  of 
either  net  energy  importation  to  or  exportation  from  the  verification 
area. 


Fig.  5.24a  shows  that  the  SI  score  for  the  thickness  field  has 
grown  more  rapidly  than  for  the  height  field.  The  growth  of  the  SI 
score  for  both  fields  is  approximately  twice  as  fast  as  for  Case  I.  The 
faster  growth  of  the  SI  scores  in  Case  II  may  be  due  either  to  the 
faster  growth  or  to  the  greater  motion  in  Case  II.  In  both  cases,  the 
field  which  underwent  the  greatest  change  had  the  larger  SI  score.  The 
final  SI  score  for  the  height  field  is  near  18.  In  the  preceding  discus¬ 
sion  of  the  various  energy  quantities,  it  was  found  that  errors  began  to 
grow  rapidly  after  twenty-four  hours.  After  thirty  hours,  large  differ¬ 
ences  between  the  two  solutions  were  common  in  the  energies.  This 
suggests  that  an  SI  score  of  less  than  ten  or  twelve  indicates  a  "good” 
forecast.  This  is  a  subjective  criterion  and  further  discussion  will  be 
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presented  with  the  final  cases. 

Fig.  5.24b  gives  the  MD  and  MAD  curves  for  the  two  models  for 
this  case.  Most  notable  is  the  large  growth  of  the  MAD  between  the 
mean  height  fields.  This  is  indicative  of  the  greater  development 
present  in  the  FE.  The  MD  between  the  mean  height  fields  grows  to 
approximately  7  meters.  This  indicates  that  the  areas  of  low  height 
have  developed  faster  than  the  highs  have  built,  in  agreement  with  what 
was  observed  earlier.  In  contrast,  the  MD  between  the  thickness  fields 
stays  relatively  small  and  negative.  The  MAD  between  the  thickness 
fields  rises  to  almost  7  m.  These  results  indicate  that  although  there 
are  large  errors  in  the  thickness  field  of  the  FE,  there  is  very  little 
bias  towards  either  raising  or  lowering  the  mean  of  the  field  in  the 
verification  area. 

In  Fig.  5.25a,  the  KE,  APE  and  TE  of  both  solutions  over  the 

entire  domain  are  presented.  The  TE  of  the  SP  changes  by  approximately 

7%  during  the  forecast  period.  The  TE  of  the  SP  should  be  conserved  and 

this  error  is  due  to  the  method  used  for  calculating  the  TE  here.  For 

this  figure,  the  values  of  the  SP  at  the  grid  points  were  found  and  a 

numerical  integration  was  performed,  as  described  in  Section  4.3.  Thus, 

this  error  is  due  to  the  discretization  of  the  SP  and  the  truncation 

errors  in  the  numerical  integration.  In  fact,  as  discussed  in  Section 

4 

3.3,  it  was  confirmed  that  the  SP  conserved  TE  to  better  than  1  in  10  . 
During  the  forecast  period,  the  TE  of  the  FE  changes  by  less  than  3%. 
Considering  that  the  SP  was  subject  to  a  7%  error  due  to  the  discreti¬ 
zation  process,  the  FE  has  conserved  TE  quite  well.  The  maximum 
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difference  between  the  TE  of  the  two  solutions  is  only  3%.  The  KE  of 
the  two  solutions  is  essentially  identical  but  the  FE  does  gain  APE 
relative  to  the  SP.  This  is  probably  due  to  the  problems  with  the 
boundary  value  of  the  thickness  field.  During  the  integration  period, 
this  has  caused  a  gain  of  3%  in  the  TE  for  the  entire  domain. 

Fig.  5.25b  gives  the  PE  of  the  two  solutions  for  the  entire 
domain.  Once  again,  there  is  a  small  error  in  the  PE  of  the  SP  due  to 
the  numerical  integration  process.  More  important,  however,  is  the 
striking  gain  in  the  PE  of  the  FE  after  twenty-four  hours.  This  large 
amount  of  PE  is  found  in  the  spurious  short  wavelength  waves  generated 
near  the  boundaries.  These  waves  were  found  to  have  vorticities  which 
were  an  order  of  magnitude  larger  than  vorticities  elsewhere  in  the 
domain.  It  is  apparent  that  the  smoother  which  was  used  was  not  ade¬ 
quate  to  control  the  development  and  growth  of  these  waves.  It  is 
probably  pure  coincidence  that  the  error  in  the  PE  of  the  FE  begin  to 
grow  most  rapidly  at  approximately  the  same  time  the  forecast  in  the 
verification  area  was  found  to  degrade  rapidly.  The  PE  of  the  FE  was 
found  to  be  smaller  than  that  of  the  SP  right  to  the  end  of  the  integra¬ 
tion.  This  indicates  there  was  little  or  no  contamination  of  the  fore¬ 
cast  in  the  verification  area  by  the  short  wavelength  waves.  However, 
the  exponential  growth  of  the  PE  indicates  the  potential  for  future 
problems  if  the  integration  had  proceeded  further  in  time. 

5.4  Case  III  -  Strong  Development 

Case  III  is  a  situation  favorable  for  strong  development. 

Figs.  5.26  -  5.28  give  the  initial  height,  thickness  and  omega  fields, 
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respectively.  The  height  and  thickness  fields  are  characterized  by 
large  gradients  and  the  troughs  in  the  thickness  field  lag  those  of 
the  height  field  by  90  .  The  thermal  advection,  which  is  essential 
for  baroclinic  development,  is  considerably  greater  than  in  the  previous 
cases.  This  will  promote  strong  development.  The  initial  omega  field 
has  relatively  large  values  for  synoptic-scale  vertical  motion,  indi¬ 
cating  the  vigour  of  the  situation  under  consideration. 

It  was  intended  to  integrate  this  case  for  forty-eight  hours 
but  computational  instability  occurred  in  the  FE  and  the  integration 
had  to  be  terminated  after  thirty- two  hours.  Fig.  5.29  shows  the  mean 
height  field  of  the  SP  after  twenty-four  hours.  The  wave  has  developed 
and  progressed  eastward  approximately  30°.  Fig.  5.30  shows  the  thick¬ 
ness  field  for  the  SP  after  twenty-four  hours.  The  wave  has  progressed 
approximately  50°.  The  meridional  amplitude  of  the  thickness  field  has 
increased  which  implies  the  conversion  of  ZAPE  to  EAPE  during  the  fore¬ 
cast  period.  On  Fig.  5.31,  we  see  that  the  amplitude  of  the  omega 
field  has  decreased  by  approximately  one-fourth  and  that  the  wave  has 
progressed  approximately  40°. 

Figs.  5.32  and  5.33  show  the  mean  height  and  thickness  fields 
of  the  FE  after  twenty— four  hours.  The  differences  in  the  mean  height 
fields  of  the  two  solutions  are  similar  to  those  present  in  Case  II. 

The  trough  and  ridge  axes  are  tilted.  There  has  been  preferential 
development  in  the  northern  half  of  the  domain  and  spurious  short-wave¬ 
length  waves  are  present  near  the  boundaries  again.  The  thickness 
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fields  differ  in  many  of  the  ways  found  in  Case  II.  Once  again,  the 
hi§h  and  low  centres  of  the  FE  have  migrated  towards  the  boundaries. 


Figs.  5.34  and  5.35  show  the  mean  height  and  thickness 
fields  of  the  FE  after  thirty  hours.  It  is  apparent  that  some  of  the 
short-wavelength  waves,  which  were  present  along  the  boundaries,  have 
grown  explosively  and  overwhelmed  the  wave  of  interest,  thereby 
ruining  the  forecast.  This  displays  the  effect  of  numerical  computa¬ 
tional  instability.  By  thirty— three  hours,  the  amplitude  of  these  waves 
had  grown  so  large  that  an  overflow  condition  was  obtained  on  the 
computer. 


In  Fig.  5.36a,  we  see  that  the  FE  has  gained  TE  relative  to 
the  SP ,  as  in  Case  II.  As  with  Case  II,  the  error  is  quite  small  after 
twenty-four  hours  of  integration.  The  FE  has,  once  again,  gained  KE 
relative  to  the  SP  but  lost  APE.  After  twenty-four  hours,  the  FE  in 
both  Case  II  and  Case  III  has  nearly  maintained  the  TE  in  the  verifica¬ 
tion  area  through  equal  but  opposite  errors  in  the  EKE  and  APE.  How¬ 
ever,  the  fields  in  Case  III  have  undergone  greater  development  and 
faster  motion  than  those  in  Case  II.  Thus,  it  seems  the  growth  of 
errors  is  not  very  dependent  on  either  the  rate  of  development  or  speed 
of  the  fields. 

In  Fig.  5.36b  the  PE  of  the  two  solutions  is  presented.  The 
error  in  the  PE  of  the  FE  is  approximately  5%,  which  is  nearly  identical 
to  the  error  in  the  PE  in  Case  II  after  twenty-four  hours. 
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In  Fig.  5.37,  it  will  be  seen  that  the  zonal  and  eddy  forms 

of  the  KE  and  APE  of  the  FE  behave  in  a  similar  manner  to  those  in 

Case  II.  However,  the  errors  are  larger  than  in  Case  II.  For  example, 
the  error  in  the  ZKE  of  the  FE  after  twenty-four  hours  is  only  7%  in 
Case  II  but  is  over  30%  in  Case  III.  Thus,  although  the  error  in  the 
TE  of  the  two  cases  had  similar  errors,  the  individual  elements  making 

up  the  TE  are  subject  to  greater  errors  in  this  case.  In  Case  II,  it 

was  suggested  that  the  FE  underwent  an  accelerated  development  relative 
to  the  SP.  The  results  of  this  section  indicate  that  this  has  occurred 
in  this  case  also,  and,  that  the  rate  of  accelerated  development 
depends,  at  least  somewhat,  on  the  rate  of  development. 

Fig.  5.38  shows  the  SI  scores  and  the  MD  and  MAD  curves  for 
this  case.  Using  the  subjective  criteria  suggested  in  Section  5.3,  the 
SI  scores  suggest  the  forecast  was  "good”  for  approximately  sixteen 
hours.  The  MD  and  MAD  curves  exhibit  similar  events  to  those  of  Case 
II.  The  errors  have  grown  faster  in  this  case. 

5.5  Case  IV  -  Moderate  Decay 

In  Case  IV,  the  troughs  in  the  thickness  field  lead  the 
troughs  in  the  mean  height  field  by  90  ,  as  the  initial  conditions  given 
in  Figs.  5.39  -  5.41  show.  The  initial  amplitudes  of  the  waves  are  the 
same  as  in  Case  II.  With  such  a  phase  relationship  between  mean  height 
and  thickness,  the  wave  in  the  mean  height  field  decays  and  there  is 
a  conversion  of  KE  to  APE.  This  is  the  opposite  of  what  happened  in  the 


previous  cases. 
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Figs.  5.42  -  5.44  give  the  mean  height,  thickness  and  omega 
fields,  respectively,  for  the  SP  after  forty-eight  hours  of  integration. 
The  wave  in  the  mean  height  field  has  decayed  in  amplitude  and  has 
retrogressed  approximately  12°.  The  wave  in  the  thickness  field  has 
also  decayed  in  amplitude  and  has  progressed  70°.  At  this  time,  the 
waves  are  almost  180  out  of  phase.  They  appear  to  be  in  the  process 
of  adjusting  themselves  so  that  their  phase  becomes  favourable  for 
development.  The  omega  field  appears  to  have  changed  very  little  in 
either  amplitude  or  position  during  the  forecast  period. 

Figs.  5.45  -  5.47  give  the  three  fields  for  the  FE  after 
forty-eight  hours.  The  mean  height  field  of  the  FE  and  the  SP  are  very 
similar  over  the  high-resolution  portion  of  the  grid.  In  fact,  near 
the  centre  line  of  the  domain,  the  FE  is  barely  distinguishable  from  the 
SP  until  the  grid  spacing  in  the  x-direction  approaches  800  km.  However, 
short-wavelength  waves  are  present  near  the  boundaries  and  those  near 
the  north  boundary  have  not  decayed  as  rapidly  as  those  near  the  south 
boundary.  Comparing  this  with  the  results  of  previous  cases,  it  indi¬ 
cates  there  is  a  predilection  for  development/decay  near  the  north/ 
south  boundary.  This  is  probably  due  to  problems  with  either  the  calcu¬ 
lation  of  various  quantities  (e.g.  vorticities)  near  the  boundary  or 
due  to  the  implementation  of  the  boundary  condition.  It  seems  probable 
that  this  bias  is  related  to  the  sign  of  the  height  field  at  the  boun¬ 
dary,  i.e.  the  positive/negative  boundary  wants  to  become  more  positive/ 
negative.  The  thickness  field  exhibits  a  large  amount  of  curvature  in 
the  trough  and  ridge  axes  in  this  case.  The  precise  cause  of  this  is 
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unknown.  However,  the  major  cause  of  change  in  the  thickness  field  in 
this  case  was  motion  as  opposed  to  decay.  Thus,  it  seems  reasonable 
to  expect  the  source  of  the  problem  to  be  connected  to  the  motion  of 
the  field. 


The  omega  field  of  the  FE  has  a  larger  amplitude  than  does 
that  of  the  SP.  This  is  partially  due  to  the  causes  discussed  in 
Section  5.1.  A  secondary  cause  is  the  increased  thermal  advection  in 
the  FE  over  the  SP  due  to  the  errors  in  the  height  and  thickness  fields 
of  the  FE. 


In  Fig.  5.48a,  it  can  be  observed  that  the  FE  has  gained  TE 
relative  to  the  SP  during  the  forecast  period  in  the  verification  area. 
This  also  occurred  in  Case  II  and  is  likely  indicative  of  the  bias  with 
respect  to  development  at  the  boundaries.  The  slow  decrease  in  the  TE 
of  the  SP  simply  indicates  there  is  a  net  export  of  energy  from  the 
verification  area,  whereas  a  net  import  was  found  for  the  developing 
cases.  The  APE  of  the  solutions  is  very  nearly  the  same  during  the 
period  but  the  FE  has  gained  KE  relative  to  the  SP.  This  was  the  cause 
of  the  gain  in  the  TE  of  the  FE  in  the  developing  cases  also.  The  APE 
changes  very  little  during  the  period  suggesting  there  is  very  little 
decay  in  the  verification  area,  or  that  an  importation  of  APE  to  the 
verification  area  has  taken  place. 

Fig.  5.48b  shows  that  the  FE  loses  PE  relative  to  the  SP 
during  the  first  thirty-six  hours  of  integration  but  gains  it  back  during 
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the  last  twelve  hours.  The  maximum  difference  between  the  PE  of  the 
two  solutions  is  less  than  4%. 

Fig.  5.49a  shows  that  the  gain  of  KE  by  the  FE  is  due  to  a 
gain  of  ZKE.  The  EKE  of  the  two  solutions  is  very  similar  throughout 
the  forecast  period.  The  error  in  the  ZKE  of  the  FE  occurs  early  in 
the  forecast  period  and  grows  slowly  during  the  period  to  a  maximum  of 
14%. 


According  to  Fig.  5.49b,  the  FE  loses  a  small  amount  of  APE 
relative  to  the  SP  during  the  forecast  period.  The  error  is  very  small 
during  the  first  thirty  hours  of  integration  as  there  are  roughly  equal 
and  opposite  errors  in  the  ZAPE  and  EAPE.  However,  the  errors  in  the 
ZAPE  and  EAPE  stay  relatively  small  throughout  the  forecast  period. 

Fig.  5.50  gives  the  SI  scores  and  the  MD  and  MAD  curves  for 
this  case.  The  SI  score  rises  rapidly  for  the  thickness  field.  This  is 
further  confirmation  of  the  errors  which  evolved  in  the  FE  during  the 
rapid  movement  of  this  field.  The  SI  score  for  the  height  field  rises 
at  a  much  slower  rate.  Near  the  end  of  the  period,  the  SI  score  for  the 
height  field  begins  to  rise  more  rapidly.  It  seems  possible  that  this 
is  a  reflection  of  the  poor  thickness  forecast  as  the  two  fields  are 
connected  through  the  model  equations. 

The  MAD  curves  for  the  height  and  thickness  fields  are  nearly 
parallel  as  they  rise.  They  rise  to  a  maximum  of  less  than  5  m,  which 
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is  quite  respectable  compared  with  the  previous  cases.  Once  again, 
the  MD  curves  suggest  the  height  field  of  the  FE  is  subject  to  some 
effect  which  causes  the  mean  height  field  of  the  FE  to  become  progres¬ 
sively  lower  than  that  of  the  SP.  As  discussed  in  Sections  5.2  and 
5.3,  it  is  felt  that  this  is  due  to  problems  at  the  boundary.  This 
effect  occurs  early  in  the  period  and  seems  to  have  less  importance  in 
the  thickness  field  forecast. 

Fig.  5.51a  gives  the  TE,  KE  and  APE  of  both  solutions  over 
the  entire  domain.  It  is  apparent  that  the  FE  has  conserved  TE  very 
well.  However,  the  FE  does  not  convert  as  much  KE  to  APE  as  does  the 
SP.  This  is  due  to  the  problems  with  development  and  decay  near  the 
boundaries  which  was  discussed  earlier.  Fig.  5.51b  shows  the  PE  for 
the  two  solutions  over  the  entire  domain.  Once  again,  the  PE  of  the  FE 
rises  rapidly  during  the  forecast  period,  as  a  result  of  the  short- 
wavelength  waves  generated  near  the  boundaries. 
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CHAPTER  6 

CONCLUSIONS 

The  finite-element  method  and  the  spectral  method  have  been 
used  to  numerically  integrate  the  equations  describing  a  two-level 
quasi-geos trophic  model  of  atmospheric  flow  on  a  6-plane.  The  solu¬ 
tions  using  the  two  numerical  methods  for  a  group  of  cases  have  been 
compared.  The  spectral  solution,  being  believed  to  be  highly  accurate, 
was  used  to  evaluate  the  performance  of  the  finite- element  solution. 

It  was  found  that  the  largest  errors  in  the  finite-element 
solution  arose  near  the  boundaries  of  the  grid.  In  the  interior  of  the 
grid,  the  finite-element  solution  compared  very  well  with  the  spectral 
solution.  Over  that  portion  of  the  grid  with  high-resolution,  only 
minor  phase  or  amplitude  differences  were  found  between  the  two  solu¬ 
tions.  As  the  time  of  integration  increased,  the  errors  in  the  finite- 
element  solution  generated  along  the  boundaries  slowly  infiltrated  the 
interior  of  the  grid. 

Two  major  sources  of  the  boundary  errors  were  found.  It  was 
suggested  that  the  major  error  source  was  the  evaluation  of  derivatives 
perpendicular  to  the  boundaries.  In  particular,  higher-order  deriva¬ 
tives  were  found  to  be  subject  to  the  greatest  errors.  Thus,  vorticities 
were  not  well  calculated  by  the  finite-element  method  along  the  boundary. 
In  an  attempt  to  minimize  this  problem,  a  portion  of  the  grid  near  the 
boundaries  was  chosen  to  have  high  accuracy  in  the  direction  perpendicu- 
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lar  to  the  boundaries.  Further  steps  could  possibly  be  taken  to  mini¬ 
mize  this  source  of  error.  For  example,  the  vorticity  on  the  edge 
could  be  "tied"  to  the  first  interior  grid  point,  i.e.  the  vorticity 
on  the  edge  could  be  set  equal  to  the  vorticity  at  the  first  interior 
grid  point.  The  success  or  failure  of  this  technique  would  depend  on 
the  system  of  equations  which  would  result  from  this  approximation. 

It  was  not  attempted  as  it  would  have  required  a  major  rewriting  of 
computer  routines  and  there  was  no  strong  evidence  that  it  would 
dramatically  improve  the  results.  It  is,  however,  a  technique  deserving 
of  future  consideration. 

The  second  source  of  error  at  the  boundary  was  that  due  to 
the  implementation  of  the  boundary  condition,  Eqn.  (2.33).  This  required 
an  integration  along  the  boundary  and  was  subject  to  the  truncation 
error  in  the  numerical  integration.  The  magnitude  of  this  truncation 
error  was  determined  by  that  portion  of  the  boundary  with  the  largest 
grid  spacing  in  the  x-direction.  The  effect  of  this  error  on  the  solu¬ 
tion  could  be  most  effectively  minimized  by  ensuring  that  the  boundar¬ 
ies  are  well  away  from  the  area  of  interest  and  by,  if  possible,  using 
a  high-order  numerical  integration  scheme.  In  this  work,  the  first 
technique  could  not  be  used.  The  second  technique  was  not  fully  studied 
as  it  seemed  the  poor  evaluation  of  perpendicular  derivatives  at  the 
boundary  was  of  much  greater  importance. 


The  techniques  for  avoiding  or  preventing  the  numerical 
instability  found  in  Case  III  are  reasonably  well  known.  The  small  grid 
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lengths  in  the  y-direction  combined  with  the  relatively  long  time-step 
have  led  to  this  instability.  Increasing  the  grid  length  and/or 
decreasing  the  time-step  would  prevent  this.  A  different  time  inte¬ 
gration  scheme  could  also  be  used.  In  the  problem  under  consideration, 
the  elimination  of  the  small  grid  spacings  near  the  boundary  would  be 
most  economical  in  terms  of  computer  time.  This  could  be  implemented 
when,  as  discussed  earlier,  an  improved  method  of  evaluating  the  deri¬ 
vatives  perpendicular  to  the  boundaries  was  found. 

The  two  methods  of  solution  were  used  for  only  a  limited 
number  of  cases.  There  are  other  atmospheric  flows  which  would  be 
interesting  to  study.  For  example,  it  would  be  interesting  to  compare 
the  two  solutions  when  a  baro tropic  atmosphere  (i.e.  one  in  which  the 
thickness  field  was  zero  everywhere)  was  considered?-  In  this  case, 
the  height  field  would  simply  translate,  i.e.  there  could  be  no  develop¬ 
ment.  By  studying  cases  with  varying  speeds  of  translation,  one  could 
study  how  well  the  finite-element  solution  deals  with  translation  and 
seek  to  determine  a  relation  between  the  growth  of  errors  and  the  speed 
of  translation.  A  companion  set  of  cases  to  these  would  be  those  in 
which  the  height  field  is  stationary  (or  nearly  so)  but  developing. 

Then,  one  could  seek  a  relation  between  the  growth  of  errors  and  the 
rate  of  development.  These  two  sets  of  cases  would  help  to  answer  some 
of  the  questions  raised  in  Chapter  5  where  the  effects  of  translation 
and  development  could  not  be  separated. 


1. 


Note  that  the  perturbation  thickness  field  is  implied  here. 
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Although  some  difficulties  have  been  experienced  in  implem¬ 
enting  the  FEM,  it  has  demonstrated  that  it  is  a  technique  worthy  of 
study  when  one  is  considering  atmospheric  flow  problems.  In  the 
future,  the  author  hopes  to  use  the  FEM  for  the  solution  of  a  more 
complicated  atmospheric  model.  This  model  is  presently  being  used 
for  operational  weather  forecasting  at  the  Alberta  Weather  Centre  using 
finite-difference  techniques. 
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2.1  Vertical  discretization  of  the  model  showing 
the  five  levels  used,  with  pressure  as  the 
vertical  coordinate.  ip .  is  the  stream  function 
at  level  i  and  to.  is  the  vertical  velocity  at 
level  i.  1 
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Fig.  2.2  The  domain  in  the  horizontal  plane  .  is  the 
latitude  at  which  the  plane  is  tangent  to  the 
earth;  the  x-direction  is  east;  the  y-direction 
is  north. 
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Fig.  5.1  Initial  mean  height  field  in  metres  for  Case  I 
in  (a)  area  B  and  (b)  area  A. 
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(b) 


Fig.  5.2  Initial  thickness  field  in  metres  for  Case  I 
in  (a)  area  B  and  (b)  area  A. 
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(a) 


Fig.  5.3  Initial  omega  field  in  ybar/sec  for  Case  I  in 
(a)  area  B  and  (b)  area  A. 
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(b) 


Fig.  5.4  The  24-hour  spectral  solution  for  the  mean  height 
field  in  metres  for  Case  I  in  (a)  area  B  and 
(b)  area  A. 
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(b) 


Fig.  5.5  The  24-hour  spectral  solution  for  the  thickness 
field  in  metres  for  Case  I  in  (a)  area  B  and 
(b)  area  A. 
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(b) 


Fig.  5.6  The  24-hour  spectral  solution  for  the  omega  field 

in  ybar/sec  for  Case  I  in  (a)  area  B  and  (b)  area  A. 
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(b) 


Fig.  5.7 


The  24-hour  finite-element  solution  for  the  mean 
height  field  in  metres  for  Case  I  in  (a)  area  B 
and  (b)  area  A. 
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(b) 


Fig.  5.8  The  24-hour  finite-element  solution  for  the  thick¬ 
ness  field  in  metres  for  Case  I  in  (a)  area  B 
and  (b)  area  A. 
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(b) 


Fig.  5.9 


The  24-hour  finite-element  solution  for  the  omega 
field  in  ybar/sec  for  Case  I  in  (a)  area  B  and 
(b)  area  A. 
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Fig.  5.10  The  (a)  energies  and  (b)  potential  enstrophy  of 
Case  I  for  the  two  solutions  in  the  verification 


area. 
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Fig.  5.11  The  (a)  kinetic  energies  and  (b)  potential  energies 
of  Case  I  for  the  two  solutions  in  the  verification 


area. 
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Fig.  5.12  The  (a)  Si  scores  and  (b)  the  MD  and  MAD  curves 

for  Case  I  for  the  two  solutions  in  the  verifica¬ 
tion  area. 
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Fig.  5.13  Initial  mean  height  field  in  metres  for  Case  II  in 
(a)  area  B  and  (b)  area  A. 
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Fig.  5.14  Initial  thickness  field  in  metres  for  Case  II  in 
(a)  area  B  and  (b)  area  A. 
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(b) 


Fig.  5.15  Initial  omega  field  in  ybar/sec  for  Case  II  in 
(a)  area  B  and  (b)  area  A. 
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(b) 


Fig.  5.16  The  48-hour  spectral  solution  for  the  mean  height 
field  in  metres  for  Case  II  in  (a)  area  B  and 
(b)  area  A. 
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(a) 


(b) 


Fig.  5.17  The  48-hour  spectral  solution  for  the  thickness 
field  in  metres  for  Case  II  in  (a)  area  B  and 
(b)  area  A. 
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(b) 


Fig.  5.18  The  48-hour  spectral  solution  for  the  omega  field 
in  ybar/sec  for  Case  II  in  (a)  area  B  and 
(b)  area  A. 
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Fig.  5.19  The  48-hour  finite-element  solution  for  the  mean 
^  height  field  in  metres  for  Case  II  in  (a)  area  B 

and  (b)  area  A. 
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Fig.  5.20  The  48-hour  finite-element  solution  for  the  thick¬ 
ness  field  in  metres  for  Case  II  in  (a)  area  B 
and  (b)  area  A. 
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(b) 


Fig.  5.21  The  48-hour  finite-element  solution  for  the  omega 
field  in  ybar/sec  for  Case  II  in  (a)  area  B  and 
(b)  area  A. 
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Fig.  5.22  The  (a)  energies  and  (b)  potential  enstrophy  of 

Case  II  for  the  two  solutions  in  the  verification 


area. 
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Fig.  5.23  The  (a)  kinetic  energies  and  (b)  potential  energies 
of  Case  II  for  the  two  solutions  in  the  verifica¬ 
tion  area. 
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Fig.  5. 24  The  (a)  SI  scores  and  (b)  MD  and  MAD  curves  of 

Case  II  for  the  two  solutions  in  the  verification 


area. 
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Fig.  5.25  The  (a)  energies  and  (b)  potential  enstrophy  of 

Case  II  for  the  two  solutions  in  the  entire  domain. 
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(b) 


Fig.  5.26  Initial  mean  height  field  in  metres  for  Case  III 
in  (a)  area  B  and  (b)  area  A. 


(b) 


Fig.  5.27  Initial  thickness  field  in  metres  for  Case  III  in 
(a)  area  B  and  (b)  area  A. 
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(a) 


(b) 


Fig.  5.28  Initial  omega  field  in  ybar/sec  for  Case  III  in 
(a)  area  B  and  (b)  area  A. 
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(b) 


Fig.  5.29  The  24-hour  spectral  solution  for  the  mean  height 
field  in  metres  for  Case  III  in  (a)  area  B  and 
(b)  area  A. 
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(b) 


Fig.  5.30  The  24-hour  spectral  solution  for  the  thickness 
field  in  metres  for  Case  III  in  (a)  area  B  and 
(b)  area  A. 
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(b) 


Fig.  5.31  The  24-hour  spectral  solution  for  the  omega  field 
in  ybar/sec  for  Case  III  in  (a)  area  B  and 
(b)  area  A. 
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Fig.  5.32  The  24-hour  finite-element  solution  for  the  mean 
height  field  in  metres  for  Case  II  in  (a)  area  B 
and  (b)  area  A. 
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(b) 


Fig.  5.33  The  24-hour  finite-element  solution  for  the  thick¬ 
ness  field  in  metres  for  Case  III  in  (a)  area  B 
and  (b)  area  A. 
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(a) 


(b) 


Fig.  5.34  The  30-hour  finite- element  solution  for  the  mean 
height  field  in  metres  for  Case  III  in  (a)  area  B 
and  (b)  area  A. 
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(b) 


Fig.  5.35  The  30-hour  finite-element  solution  for  the  thick¬ 
ness  field  in  metres  for  Case  III  in  (a)  area  B 
and  (b)  area  A. 
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Fig.  5.36  The  (a)  energies  and  (b)  potential  enstrophy  of 

Case' III  for  the  two  solutions  in  the  verification 


area. 
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The  (a)  kinetic  energies  and  (b)  potential  energies 
of  Case  III  for  the  two  solutions  in  the  verifica¬ 
tion  area. 
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Fig.  5.38  The  (a)  SI  scores  and  (b)  MD  and  MAD  curves  for 

Case  III  for  the  two  solutions  in  the  verification 


area. 
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(b) 


Fig.  5.39  Initial  mean  height  field  in  metres  for  Case  IV 
in  (a)  area  B  and  (b)  area  A. 
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(b) 


Fig.  5.40  Initial  thickness  field  in  metres  for  Case  IV 
in  (a)  area  B  and  (b)  area  A. 
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(b) 


Fig.  5.41  Initial  omega  field  in  ybar/sec  for  Case  IV  in 
(a)  area  B  and  (b)  area  A. 
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(b) 


Fig.  5.42  The  48-hour  spectral  solution  for  the  mean  height 
field  in  metres  for  Case  IV  in  (a)  area  B  and 
(b)  area  A. 
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(b) 


Fig.  5.43  The  48-hour  spectral  solution  for  the  thickness 
field  in  metres  for  Case  IV  in  (a)  area  B  and 
(b)  area  A. 
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Fig.  5.44  The  48-hour  spectral  solution  for  the  omega  field 
in  ybar/sec  for  Case  IV  in  (a)  area  B  and 
(b)  area  A. 
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(a) 


Fig.  5.45  The  48-hour  finite-element  solution  for  the  mean 
height  field  in  metres  for  Case  IV  in  (a)  area  B 
and  (b)  area  A. 


1  A3 


(b) 


Fig.  5.A6  The  48-hour  finite-element  solution  for  the 

thickness  field  in  metres  for  Case  IV  in  (a)  area  B 
and  (b)  area  A. 
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(b) 


Fig.  5.47  The  48-hour  finite-element  solution  for  the  omega 
field  in  ybar/sec  for  Case  IV  in  (a)  area  B  and 
(b)  area  A. 
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48  The  (a)  energies  and  (b)  potential  enstrophy  of 
Case  IV  for  the  two  solutions  in  the  verification 


area. 
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Fig.  5.49  The  (a)  kinetic  energies  and  (b)  potential  energies 
of  Case  IV  for  the  two  solutions  in  the  verifica¬ 
tion  area. 
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Fig.  5.50 


The  (a)  SI  scores  and  (b)  MD  and  MAD  curves  of 
Case  IV  for  the  two  solutions  in  the  verifica¬ 
tion  area. 
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Fig.  5.51  The  (a)  energies  and  (b)  potential  enstrophy 

of  Case  IV  for  the  two  solutions  in  the  entire 
domain. 
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APPENDIX  A 

COMPUTER  PROGRAM  LISTINGS 

This  appendix  contains  a  listing  of  the  computer  programs 
used  and  developed  for  this  thesis.  In  addition,  some  plotting 
routines  available  on  the  computer  were  used.  All  calculations 
were  done  using  double-precision  variables. 
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FEMAIN 


FILE  : 

FILES : 
OBJECT 
INPUT 

2 

3 

4 

5 

OUTPUT 

6 

7 

8 


FEMAIN. O  + 

RELDAT 

FEMIN 

MESHD 

VMESH 

*PRINT* 
GARBAGE 
F  ED  I  AG 


INTERP.O  +  DIFF.O  +  PROJ.O  + 


PROPER  DIMENSIONS 

X(NIU)  , Y ( NJU  )  .XI(NIP)  , Y I ( NJP ) 

XCI(NI.NJ)  , T  AU ( NI , NJ )  .OMEG(NI.NJ) 

WK1-WK7  DIM.  MAX(NI.NJ) 

THIS  IS  THE  MAIN  ROUTINE  FOR  THE  FINITE  ELEMENT  MODEL 


IMPLICIT  REAL*8  (A-H.O-Z) 

DIMENSION  X(281  )  .  Y(45),  XI(63).  YI(27) 

DIMENSION  XCI(63, 27),  TAU(63«27),  0MEG(63«27) 

DIMENSION  FX(63 , 27)  , FY(63, 27  )  , FXY(63, 27) 
DIMENSION  D(4,281,45), WORK (45,8) 

DIMENSION  SPAR ( 6 ) 

DIMENSION  SPARX ( 6  ) 

DIMENSION  WKA (63 , 27 ) 

DIMENSION  WKB (63,27) 

DIMENSION  WKC (63 , 27 ) 

DIMENSION  WKD( 63 , 27 ) 

DIMENSION  WKE (63,27) 

DIMENSION  WKF (63 , 27 ) 

DIMENSION  WKG( 63 , 27 ) 

DIMENSION  WKH( 63 , 27 ) 

DIMENSION  WK I ( 63 , 27 ) 

DIMENSION  WKJ( 63 , 27 ) 

DIMENSION  WKK( 63 , 27 ) 

DIMENSION  WKL ( 63,27) 

DIMENSION  OUT (63 , 27  )  , XC I  1 ( 63 , 27 ) , TAU 1 ( 63 , 27 ) 
DIMENSION  XCT2(63.27)  ,TAT2(63.27) 


REAL*8 

L, 

.LX.LY.L2.L3 

RE AL  *8 

LYPR, LXPR 

COMMON 

/ 

WKS1D1 

/ 

WK 1(63) 

COMMON 

/ 

WKS1D2 

/ 

WK2 (63 ) 

COMMON 

/ 

WKS1D3 

/ 

WK3 ( 63 ) 

COMMON 

/ 

WKS1D4 

/ 

WK4 ( 63 ) 

COMMON 

/ 

WKS1D5 

/ 

WK5( 63 ) 

COMMON 

/ 

WKS1D6 

/ 

WK6 ( 63 ) 

COMMON 

/ 

WKS1D7 

/ 

WK7 ( 63 ) 

COMMON 

/ 

WKS1D8 

/ 

WK8 ( 63 ) 

COMMON 

/ 

WKS1D9 

/ 

WK9 ( 63 ) 

COMMON 

/ 

WKS  1  10 

/ 

WK 10(63) 

COMMON 

/ 

WKS1X1 

/ 

WK  1 X ( 63 ) 

COMMON 

/ 

WKS1X2 

/ 

WK2X ( 63 ) 

COMMON 

/ 

WKS  1X3 

/ 

WK3X ( 63 ) 

COMMON 

/ 

WKS 1X4 

/ 

WK4X (63 ) 

COMMON 

/ 

WKS1X5 

/ 

WK5X (63  ) 

COMMON 

/ 

HXMESH 

/ 

HX ( 63 ) 

PROD .0 
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COMMON 

/ 

HYMESH 

/ 

HY ( 27  ) 

COMMON 

/ 

HXMES  1 

/ 

HX1 (63) 

COMMON 

/ 

HYMES1 

/ 

HY  1(27) 

COMMON 

/ 

RAT  1 0 1 

/ 

RAT  1  ( 63 , 27  ) 

COMMON 

/ 

RATI  I  1 

/ 

RATI  1(63,27) 

COMMON 

/ 

RATI 04 

/ 

RAT4 (63 , 27 ) 

COMMON 

/ 

RAT  1 00 

/ 

RATO( 63 , 27 ) 

COMMON 

/ 

RATI02 

/ 

RAT2 ( 63 , 27  ) 

COMMON 

/ 

RAT  103 

/ 

RAT  3 ( 63 , 27 ) 

COMMON 

/ 

RATI  05 

/ 

RAT5 ( 63 , 27 ) 

COMMON 

/ 

CONSTA 

/ 

C4  ,C5 

LOGICAL 

FOURTH 

LOGICAL 

* 

1  LFMT ( 1 )/ 

DATA  SPAR/ . 30D0 , . 50D0, . 30D0. . 15D0, .08D0, . 02D0/ 

DATA  SPARX/. 10D0. . 15D0, . 10D0, .05D0, .01D0, .00500/ 

I CNT  =0 
CALL  PLOTS 

CALL  ORGEP ( 1 .0. 1 .0, 1 .0) 

SET  CONSTANTS 

ALP  =  -  1 2 . ODO/5 . ODO 

LX=2 . 80D7 

LY  =  8 . 80D6 

PI =3 . 141 592654DO 

L YPR  =  2 . ODO* PI /LY 

LXPR=2 . ODO*PI / LX 

F0= 1 .0312D-4 

DP=5 . 00D4 

BETA= 1 . 62D- 1 1 

SIG=2 . 8D-6 

G=9 . 806D0 

L=LX/2 . ODO/PI 

L2=L*L 

L3= 1 . 0D0/L2 

ALPHA=LX/LY 

ALP2= 1 . O/ALPHA/ALPHA 

C4=L*L*F0*F0/G 

C5=DP*F0* 10. 

BETAO=-BETA/FO 

SIGS=DP*DP/2 . ODO/FO/FO/L/L*SIG 

S I GI = 1 .ODO/SIGS 

SIGJ=L2*SIGI 

OMCT  =  2  .  ODO*L*L*FO*FO/  (SIG*DP'*DP) 

OMCO=OMCT*L*L 

BEPR=2 . ODO*L*L*FO*BETA/(SIG*DP*DP ) 

HELMCF  =  2 . ODO*FO*FO/ (SIG*DP*DP ) 

SET  FOURTH  =  .TRUE.  FOR  FOURTH  ORDER  SOLUTION  AND 
FOURTH  =  .FALSE.  FOR  SECOND  ORDER  SOLUTION. 

FOURTH  = . TRUE . 

READ  NO.  OF  POINTS  IN  X  AND  Y  DIRNS  OF  UNDERLYING  GRID. 

RE AD ( 4 . LFMT  )  NIU.NJU 

READ  NO.  OF  PTS  IN  X  AND  Y  DIRNS.  OF  NON  UNIFORM  GRID 

READ ( 4 . LFMT )  NI.NJ 

NI P=NI 

NUP=NJ 

READ  NO.  OF  PTS  IN  X  AND  Y  DIRNS  OF  UNIFORM  PART  OF  NON-UNIFORM  GRID 
RE AD ( 4 , LFMT )  NILA, NJLA 
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READ  X  AND  Y  MESH  LENGTHS  OF  UNDERLYING  UDIFORM  GRID 
READ  (4, LFMT)  HXU.HYU 

READ  X  AND  Y  MESH  LENGTHS  OF  UNIFORM  PART  OF  NON-UNIFORM  GRID 
READ( 4 , LFMT )  HXN.HYN 
READ  X-POSN'S  OF  UNDERLYING  GRID 
READ(5. LFMT)(X(I ) , 1=1 ,NIU) 

READ  Y-POSN'S  OF  UNDERLYING  GRID 
READ(5,LFMT)(Y(I ),I=1 , NJU ) 

READ  X-POSN'S  OF  NON  UNIFORM  GRID 
RE AD ( 5. LFMT  )( XI ( I ) , 1  =  1 ,NIP) 

READ  Y-POSN'S  OF  NON  UNIFORM  GRID 
RE AD ( 5 , LFMT )(YI(I),I=1 .NdP) 

READ  NO.  OF  WAVES,  NO.  OF  HOURS  FOR  PROG.,  TIMESTEP,  NO.  OF 
HOURS  BETWEEN  OUTPUT  OF  MAPS. 

READ( 3 , LFMT )  N.M.DT.IDT2 

READ  INITIAL  VALUES  OF  HEIGHT,  THICKNESS  AND  OMEGA  FIELDS 

RE AD (3 , LFMT)  XCI I  1  . XC 1 2 , XC I  3 . TAUU 1 . TAU2 . TAU3 , OMEG 1 , 0MEG2 , 0MEG3 

READ  INITIAL  HEIGHT  CHANGE  GUESSES  TO  SAVE  CPU  TIME 

RE AD ( 3 , LFMT  )DXC 1 , DXC2 , DXC3 , DTA 1 , DTA2 , DTA3 

READ  RELAXATION  PARAMETERS. 

RE AD (2, LFMT)  RELF.XTOL 

READ( 2 . LFMT )  RELFH , XTOLH 

DT 1 =DT* . 50D0 

NI PM  =  N I P -  1 

NJPM=NJP- 1 

NI M  =  NI -  1 

NJM=NJ- 1 

CALCULATE  GRID  LENGTHS  OF  NON  UNIFORM  GRID 

CALL  CALH(HX1 .XI .NIP) 

CALL  CA LH( HY 1 , YI ,  NdP  ) 

HX 1 (NIP )=HX 1 (NIPM) 

HY 1 (NUP )=HY 1 (NUPM) 

DO  60  1=1 ,NI 
60  HX ( I ) =HX 1 ( I ) 

DO  65  d=1 ,NJ 
65  HY (  d  ) =HY 1(d) 

FORM  RATIO  MATRICES  FOR  SOLUTION 

HELP =5 . ODO*HELMCF/ 12 . ODO 
DO  848  d=1 ,Nd 
d1=d-  1 
HY2=HY ( d ) 

I F ( d . EO . 1 )  GO  TO  849 


. 


196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

2  1  1 

212 

213 

214 

215 

2  16 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

26  1 


o  n  o  o  o  o 


•158 


HY <J  =  HY2+HY  (  J1  ) 

849  DO  848  1=1 ,NI 
11=1-1 
HX2=HX ( I ) 

RAT  1 ( I ,U)=HY2/HX2 

RATI  1(1 . J)=1  . ODO/RAT 1 ( I .J) 

I  F  (  I  .  LT  .  2  .  OR  .  J  .  LT  .  2  )  GO  TO  848 
HXI =HX2+HX( I  1 ) 

RATO( I . J ) =HY  2  *HX2 
RAT2 ( I , J)=HY2*HXI 
RAT  3(1 , d)=HYJ*HX2 

RAT4 ( I , J ) =RAT 1 ( I , d  )+RAT 1 ( I  1 . J)  +  RAT 1 ( I , J 1 )  +  RAT1 ( I  1 , J 1 ) 
RAT4 ( I , J ) =RAT4 ( I , J)  +  RATI 1 ( I  , J)  +  RATI 1(11 , J  )  +  RAT I  1 ( I , J 1 ) 
RAT4 ( I ,J)=RAT4(I,J)+RATI1(I 1 , J1 ) 

RAT5 ( I , J ) =RAT  4(1 ,J)+HELP*HXI*HYJ 
RAT5 ( I , J  )  =  1 . 000/RAT5( I , J ) 

RAT4 ( I , J  )  = 1  . ODO/RAT 4 ( I , J ) 

848  CONTINUE 

CALCULATE  INITIAL  VALUES  AT  GRID  POINTS 

XCII  1=XCII 1*DSQRT(2 .ODO) 

XCI2=XCI2*2 . ODO 
XCI3=XCI3*2 .ODO 
DXC1=DXC1  *DSQRT ( 2 . ODO ) 

DXC2=DXC2*2 . ODO 
DXC3=DXC3*2 .ODO 
T  AUU 1 =TAUU 1 *DSQRT ( 2 . ODO ) 

TAU2=TAU2*2 . ODO 
TAU3=TAU3*2 .ODO 
DTA1=DTA1 *DSQRT ( 2 . ODO ) 

DTA2=DTA2*2 .ODO 
DTA3=DTA3*2 .ODO 
OMEG 1=0MEG1*DSQRT(2. ODO ) 

0MEG2=0MEG2*2 . ODO 

0MEG3=0MEG3*2 . ODO 

CX=2 ,ODO*PI*DFLOAT(N)/LX 

CY=2 . ODO*P I /LY 

SY  =0 . ODO 

DO  100  d= 1 .NJ 

J1=d-  1 

IF( J.EO.  1 )  GO  TO  1  10 
SY  =  SY+HY ( J 1  ) 

1 10  Y2=SY*CY 

S I Y  =DS IN( Y2 ) 

COY  =  DCOS ( Y  2 ) 

SX=0 . ODO 
DO  100  I = 1 , NI 
11=1-1 

IF(I.EO.I)  GO  TO  120 
SX  =  SX  +  HX( I  1 ) 

120  X2=SX*CX 

SIX=DSIN(X2) 

COX  =DCOS ( X2 ) 

S=SI Y*SIX 
C=SI Y*COX 

XCI ( I , U)=XCII 1*C0Y+XCI2*S+XCI3*C 
T  AU ( I ,U)=TAUU1*C0Y+TAU2*S+TAU3*C 
OMEG ( I . J)=0MEG1*C0Y+0MEG2*S+0MEG3*C 
XCI  1  (  I  ,  J)=DXC1*COY  +  DCX2*S-*-DXC3*C 
TAU 1 ( I , J)=DTA1*C0Y+DTA2*S+DTA3*C 

100  CONTINUE 

BEGINNING  OF  THE  TIME  LOOP 
DO  lOOO  II-1.M 
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I  2= ( 1 1  -  1 ) / IDT2* I DT2 
13=12— (II— 1 ) 

IFU3.EQ.0)  ICNT  =  ICNT+  1 
I  4  =  ( I CNT -  1 )/4*4-( ICNT-1 ) 

C 

C  SET  ARRAYS  TO  0. 

C 

c 

C  FORM  X-DERIV.  OF  XCI  FIELD. 

C 

CALL  DXDYDS ( WK I , XCI , 1.0D0.  TRUE. . .FALSE. .NI.NJ) 
CALL  PSOLVE ( WKA , WKI , NI ,  N  J ,  .TRUE.  ,  .FALSE.  .  .FALSE.  ) 

FORM  Y-DERIV.  OF  XCI  FIELD. 

CALL  DXDYDS (WKI . XCI . 1 .ODO, .FALSE . TRUE . .NI.NJ) 
CALL  PSOLVE ( WKB , WKI . NI . NJ .. FALSE  .  .  .TRUE  ...  FALSE .  ) 

FORM  X-DERIV.  OF  TAU  FIELD. 

CALL  DXDYDS (WKI .TAU, 1 .ODO. . TRUE . , . FALSE ..NI.NJ) 
CALL  PSOL VE ( WKC , WK I , NI , N J ,  .TRUE .  ,  .FALSE ..  .FALSE .  ) 

FORM  Y-DERIV.  OF  TAU  FIELD. 

CALL  DXDYDS (WKI .TAU, 1 .ODO. .FALSE . . .TRUE ..NI.NJ) 
CALL  PSOLVE (WKD, WKI , NI , NJ .. FALSE . ,  .TRUE .  ,  . FALSE .  ) 

ADD  TERM  5  TO  WKG .  THE  R.H.S.  OF  EON.  1 

CALL  GDADGD( WKG , 0 . ODO , WKG , BET AO , WKA , NI , N J ) 

ADD  TERM  5  TO  WKH ,  THE  R.H.S.  OF  EON.  2 

CALL  GDADGD ( WKH , O . ODO , WKH , BET AO , WKC .NI.NJ) 

CALL  GDADGD ( WKL , O . ODO , WKL , -BEPR . WKC , NI , N J ) 

FORM  LAPLACI AN  OF  XCI 

CALL  D2XYS ( WKI . XCI . 1 .ODO.  .TRUE  ...  FALSE ., NI . NJ ) 
CALL  PSOLVE (WKE .WKI ,NI , N J ,  .TRUE  ...  FALSE .  , FOURTH) 
CALL  D2XYS ( WKI .XCI . 1 .ODO. .FALSE . . .TRUE ..NI.NJ) 
CALL  PSOLVE ( WKF , WKI . NI . NJ ,. FALSE . . .TRUE . , FOURTH) 
CALL  GDADGD (WKE . 1 .ODO, WKE . 1 .ODO, WKF ,NI , N J ) 

CALL  SMY ( WKE , NI , NJ . SPAR , 6 , WKK ) 

CALL  SMX ( WKE , NI , NJ , SPARX , 6 , WKK ) 

FORM  Y-DERIV.  OF  LAPLAC  OF  XCI. 

CALL  DXDYDS (WKI .WKE .  1 .ODO,  .FALSE  .  .  .TRUE ..NI.NJ) 
CALL  PSOLVE (WKF .WKI ,NI , N J ,  .FALSE.  .  .TRUE. .  .FALSE.  ) 

FORM  TERM  1  OF  EON.  1 

CALL  NLLOOP ( WKI , WKA , WKF , NI , NJ ) 

CALL  PSOLVE ( WKJ. WKI .NI.NJ. . TRUE . , .TRUE . . .FALSE . ) 
ADD  TO  R.H.S.  OF  EON.  1  (I.E.  WKG) 

CALL  GDADGD (WKG. 1 .ODO. WKG, -L2 , WKJ.NI , N J ) 

FORM  TERM  1  OF  EON.  2 

CALL  NLLOOP ( WK I , WKC . WKF , NI . NJ ) 

CALL  PSOLVE (WKJ . WKI .NI .NJ .  . TRUE .  .  . TRUE  ...  FALSE .  ) 
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ADD  TO  R.H.S.  OF  EON.  2  (I.E.  WKH ) 

CALL  GDADGD( WKH, 1  0D0, WKH, -L2 , WKJ , NI . NJ ) 

CALL  GDADGD ( WKL , 1 .ODO.WKL, -OMCO, WKJ, NI , Nd ) 

FORM  X-DERIV.  OF  LAPLAC I  AN  OF  XCI 

CALL  DXDYDS( WKI , WKE ,  1 .000,  . TRUE .  ,  .  FALSE .  ,NI ,NJ) 
CALL  PSOLVE ( WKE , WKI , NI , NJ ,  .TRUE.  ,  .FALSE.  ,  .FALSE.  ) 

FORM  TERM  2  OF  EON  1 . 

CALL  NLLOOP ( WKF , WKB , WKE , NI , NJ ) 

CALL  PSOLVE(WKI , WKF ,NI . Nd .  .TRUE.  .  .TRUE.  ,  .FALSE.  ) 
ADD  TO  R.H.S.  OF  EON.  1 

CALL  GDADGD (WKG, 1 . ODO , WKG , L2 , WK I ,NI , Nd ) 

FORM  TERM  2  OF  EON.  2. 

CALL  NLLOOP ( WKF , WKD , WKE , NI , Nd ) 

CALL  PSOLVE ( WKI , WKF , NI , Nd ,  .TRUE.  .  .TRUE.  .  .FALSE.  ) 

ADD  TO  R.H.S.  OF  EON.  2. 

CALL  GDADGD ( WKH , 1 . ODO , WKH , L2 , WK I ,NI , N J ) 

CALL  GDADGD( WKL , 1 . ODO . WKL , OMCO . WK I .NI , Nd ) 

FORM  LAPLACI AN  OF  TAU 

CALL  D2XYS ( WKE , TAU , 1 .ODO, .TRUE . , . FALSE . ,NI ,Nd) 
CALL  PSOLVE (WKI , WKE ,NI , Nd ,  . TRUE  ...  FALSE .  , FOURTH) 
CALL  D2XYS(WKF .TAU, 1 .ODO, .FALSE ., . TRUE . ,NI , Nd ) 
CALL  PSOLVE ( WKJ , WKF , NI , Nd , .FALSE., .TRUE. .FOURTH) 
CALL  GDADGD (WKE , 1 .ODO, WKI , 1 .ODO.WKd.NI ,Nd) 

CALL  SMY ( WKE , NI , Nd , SPAR , 6 , WKK ) 

CALL  SMX ( WKE , NI , Nd , SPARX , 6 , WKK ) 

FORM  Y-DERIV.  OF  LAPLAC I  AN  OF  TAU 

CALL  DXDYDS(WKF,WKE. 1 .000, .FALSE. , .TRUE. ,NI,Nd) 
CALL  PSOLVE (WKK, WKF ,NI , Nd .  .FALSE.  ,  .TRUE.  ,  .FALSE.  ) 

FORM  TERM3  OF  EON.  1 

CALL  NLLOOP ( WKI , WKC , WKK , NI , N J ) 

CALL  PSOLVE (WKJ, WKI ,NI . Nd . .TRUE. , .TRUE. , .FALSE. ) 
ADD  TO  R.H.S.  OF  EON.  1 

CALL  GDADGD (WKG, 1 . ODO . WKG . -L2 , WKJ . NI .Nd) 

FORM  TERM  3  OF  EON.  2 

CALL  NLLOOP ( WK I , WKA , WKK , NI , Nd ) 

CALL  PSOLVE ( WKJ , WKI , NI , Nd ,  .TRUE.  ,  .TRUE.  .  .FALSE.  ) 

ADD  TO  R.H.S.  OF  EON.  2 

CALL  GDADGD (WKH. 1 . ODO , WKH , -L2 , WK J . NI . Nd ) 

CALL  GDADGD (WKL. 1 . ODO . WKL . -OMCO . WKJ . NI ,NJ) 

FORM  X-DERIV.  OF  LAPLAC I  AN  OF  TAU 

CALL  DXDYDS(WKF,WKE. 1 .ODO, .TRUE. , .FALSE. ,NI . Nd ) 
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CALL  PSOLVE ( WK J . WKF , NI , NJ , . TRUE ...FALSE. ..FALSE.) 

FORM  TERM  4  OF  EON.  1 

CALL  NLLOOP ( WK I , WKD , WK J , NI , N J ) 

CALL  PSOLVE ( WKK . WKI ,NI . N J ,  . TRUE .  .  . TRUE  ...  FALSE .  ) 

ADD  TO  R.H.S.  OF  EON.  1 

CALL  GDADGD ( WKG , 1 . ODO . WKG . L2 . WKK . NI . Nd ) 

FORM  TERM  4  OF  EON.  2 

CALL  NLLOOP ( WK I , WKB , WK J , NI , Nd ) 

CALL  PSOLVE(WKd, WKI ,NI . Nd .  .TRUE.  .  .TRUE.  .  .FALSE.  ) 

ADD  TO  R.H.S.  OF  EON.  2 

CALL  GDADGD ( WKH ,  1 . ODO . WKH . L2 . WKd . NI  .  Nd ) 

CALL  GDADGD (WKL, 1 . ODO . WKL . OMCO . WKd . NI .Nd) 

FIND  VERTICAL  VELOCITY 

CALL  NLLOOP ( WKI , WKA , WKD , NI . Nd ) 

CALL  PSOLVE (WKd, WKI , NI , Nd ,  . TRUE .  ,  . TRUE .  ,  . FALSE .  ) 

CALL  NLLOOP ( WKI , WKB , WKC , NI , Nd ) 

CALL  PSOLVE (WKK, WKI ,NI . Nd , . TRUE . , .TRUE . . . FALSE . ) 

CALL  GDADGD (WKF ,  1  .ODO, WKd, -  1 .ODO, WKK, NI . Nd ) 

I F ( II . EO. 1 )  GO  TO  748 

IF( I3.NE .O.OR . 14 .NE .0)  GO  TO  748 

CALL  D2XYS ( WKE , WKF , 1 .ODO. . TRUE . . . FALSE . ,NI .Nd) 

'  CALL  PSOLVE (WKI , WKE ,NI .Nd,  .TRUE .  ,  . FALSE .  , FOURTH) 

CALL  D2XYS( WKd , WKF , 1 .ODO, .FALSE . , .TRUE . ,NI ,Nd) 

CALL  PSOLVE ( WKK , WKd , NI .Nd, . FALSE . , .TRUE . , FOURTH) 

CALL  GDADGD ( WKE , 1 .ODO, WKI , 1 .ODO, WKK, NI ,Nd) 

CALL  GDADGD (WKL. 1 . ODO , WKL . OMCO . WKE , NI , Nd ) 

CALL  PROdN( WKI , WKL , FOURTH , NI , Nd , . TRUE . , .TRUE . ) 

DO  226  d=1 .Nd 
DO  226  1=1 ,NI 
226  WK I( I ,  d  )  =  A  L  P  * WK I ( I , d ) 

CALL  RELHE L ( OMEG , WKI ,NI , Nd . LX . HELMCF , RELFH , XTOLH ) 

748  CONTINUE 

ADD  TERM  6  TO  R.H.S.  OF  EON.  2 

CALL  GDADGD (WKH. 1 . ODO, WKH , OMCT , WKF , NI , Nd ) 

WR I TE ( 7 , 999 )  II 
999  FORMAT ( 16 ) 

IF(I4.EQ.O. AND . 1 3 . EO . 0)  CALL  OUTPUT ( 1 1 . XC I . TAU , OMEG , X I . 

1  YI .X.Y.NI .Nd.NIU, NdU.FX.FY.FX Y.D, WORK, NIP. NdP , OUT, DT ) 
IF(I3.EQ.O)  WR I TE ( 8 )  XCI 
I F ( I  3 . EO . 0 )  WR I TE ( 8 )  TAU 
I F ( 1 1  . EO.M)  GO  TO  1000 

THE  R.H.S.  OF  EON.  1  AND  2  HAVE  NOW  BEEN  FORMED  AND  MAY  PROCEED 
WITH  THE  SOLUTION. 


CALL  PROdN( WK I , WKG , FOURTH . NI , Nd , .TRUE . , . TRUE . ) 
CALL  PROdN(WKF, WKH, FOURTH. NI . Nd , .TRUE. . .TRUE. ) 

SOLVE  EON.  1 

DO  225  d= 1 ,Nd 
DO  225  1=1, NI 
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WK I ( I , d )=ALP*WKI ( I . J) 

225  WKF(  I  ,d)=ALP*WKF(  I  ,J) 

CALL  RE  L ( XC I  1 , WK I  ,  NI . Nd . LX , RELF , XTOL ) 

SOLVE  EON.  2 

CALL  RELHE  L ( T  AU 1 , WKF , NI , N 0 . LX , HE LMCF , RE LFH , XTOLH ) 
IF( 1 1 . EO.  1 )  GO  TO  240 

EXTRAPOLATE  IN  TIME  USING  ADAMS -BASHFORTH  METHOD. 

DO  250  d  = 1 .NJ 
DO  250  1=1, NI 

XCI ( I , J)=XCI ( I , J ) +DT 1  * ( 3 . ODO*XC I1(I,J)-XCT2(  I  ,  J) ) 

T  AU ( I , J)=TAU( I , d)+DT 1*(3 . 0D0*TAU1 ( I , d  ) -TAT2 ( I , d ) ) 
250  CONTINUE 
GO  TO  260 

EXTRAPOLATE  FIRST  TIME  STEP  USING  FORWARD  DIFFERENCE. 

240  DO  200  d=1 ,Nd 
DO  200  1=1 ,NI 

XCI(I,J)=XCI(I.J) +DT*XC I  1 ( I . U ) 

T  AU( I . J)=TAU( I , J )+DT*TAU 1 ( I ,d) 

200  CONTINUE 
260  DO  220  J=1 ,Nd 
DO  220  1=1 .NI 
XCT2( I ,d)=XCI 1( I , J) 

TAT2 ( I , J ) =TAU 1(1 ,d) 

220  CONTINUE 
1000  CONTINUE 

CALL  PL0T(0. 0,0. 0,999) 

STOP 

END 

SUBROUTINE  SMY(F,NI , Nd . SPAR , K , FSM ) 

IMPLICIT  RE AL *8  (A-H.O-Z) 

DIMENSION  F(NI , Nd  )  . FSM(NI , Nd ) . SPAR(K) 

COMMON  /  HYMESH  /  HY ( 1 ) 

C 

C  SIMPLE  3  PT.  SMOOTHER  IN  Y-DIRECTION 
C 

C  SPAR= SMOOTHING  PARAMETERS  FOR  6  GRID  POINTS 
C 

NdM=Nd- 1 
S2  =  SPAR(  1  ) 

S 1 = 1 .0D0-S2 
DO  10  1= 1 .NI 

FSM( I,1)=S1*F(I,1  )  +  S2*F (1,2) 

10  FSM( I . Nd )=S 1 *F ( I , Nd )+S2*F ( I ,NdM) 

DO  20  d=2 , 6 

S 1 = 1 .ODO-SPAR(d) 

d1=d+1 

d2=d-1 

DO  20  1=1, NI 

20  FSM( I , d)=S  1  *F( I , d )+SPAR ( d  )  * ( F(I,d1)  +  F(I,d2)) 

DO  30  d=2 , 6 

dP=Nd-d+1 

S 1 = 1 .ODO-SPAR(d) 

d1=dP+1 

d2=dP- 1 

DO  30  1=1, NI 

30  FSM(I,dP)=S1*F(I,dP)+SPAR(dP)*(F(I,d1)+F(I,d2)) 
Nd5=Nd-5 
DO  60  d= 1 .6 
DO  60  1=1 .NI 
60  F ( I , d  )  =FSM( I . d ) 
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DO  70  J  =  N  J5 , NJ 
DO  70  1=1 , NI 
70  F( I . J)=FSM( I  .  J  ) 

RETURN 

END 

SUBROUTINE  SMX(F,NI . NJ . SPAR . K , FSM ) 

IMPLICIT  REAL*8  (A-H.O-Z) 

DIMENSION  F(NI ,NJ) , FSM(NI , N J ) , SPAR(K) 

COMMON  /  HXMESH  /  HX ( 1 ) 

SIMPLE  3-POINT  SMOOTHER  IN  X-DIRECTION. 

NIM  =  NI -  1 
DO  10  U= 1 .6 
S2=SPAR( J) 

S1= 1 . ODO- SPAR ( J ) 

FSM(NI ,J)=S1*F(NI ,J)+S2*F(NIM,J) 

FSM( 1 ,J)=S1*F( 1 . U )+S2*F ( 2 , J ) 

UP=NJ-J+ 1 

FSM(  1  ,UP)=S1*F(  1  . JP)+S2*F(2, JP) 

10  FSM(NI , JP)=S1*F(NI . JP)+S2*F(NIM.JP) 

DO  20  1=2. NIM 
11=1-1 
12=1+1 
DO  20  d=1 .6 
S1= 1 . ODO-SPAR ( J ) 

FSM( I , J)=S1*F( I ,d)+SPAR( J)*(F( I2,d)+F( I  1 . J) ) 
JP=NJ-<J+  1 

FSM( I , JP ) =S 1 *F ( I ,JP)+SPAR(J)*(F( I2,JP)+F(I 1 ,JP) ) 
20  CONTINUE 
NJ5=NJ-5 
DO  60  J=1 .6 
DO  60  1=1 ,NI 
60  F(I,J)=FSM(I,vJ) 

DO  70  J=NU5 , NU 
DO  70  1=1, NI 
70  F ( I , U ) =FSM( I . J) 

RETURN 

END 
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FILE:  SPEC 


FILES : 
OBJECT 

INPUT 


OUTPUT 


1  1 


-  SPEC  .  O 

-  SPLATM.O  (USES  FOR  OUTPUT) 


3  =  VMESH 

4  =  MESHD 

5  =  SPECD  -  INITIAL  AMPLITUDES  AND  CONTROL  DATA 


6  =  *PRINT* 

7  =  *PRINT* 

8  =  * PR  I NT  * 
12  =  FEMIN 

10  =  *PRINT* 

=  SPDIAG  -  B I 


-  OUTPUT  OF  MAPS  AND  GRAPHS 

-  OUTPUT  OF  AMPLITUDES 

-  ENERGY  AND  ENSTROPHY 

-  INITIAL  DATA  FOR  FEM  MODEL 

-  THEORETICAL  CALCULATIONS 
NARY  OUTPUT  FOR  DIAGNOSTICS 


SUBROUTINES : 

-  MAIN 

-  OUTPT 


MAIN  ROUTINE  FOR  THE  SPECTRAL  MODEL. 


IMPLICIT  REAL*8  (A-H,0-Z) 

DIMENSION  A (200. 9) .EKE (200) , APE (200) ,TEN(200) . PE (200) 

DIMENSION  PHIH( 200 ) , PHI T ( 200 ) , DPHI ( 200 ) 

C 

C  PROPER  DIMENSIONS  FOR  ARRAYS: 

C 

C  DIM  X(NIU).Y( NJU ) ,XCIB(NIU, NJU ) , T AUB ( NIU , NJU ) , OMEGB ( NIU , NJU ) 

C  DIM  XI (NI ) . YI (NI ) 

C 

DIMENSION  X ( 28  1  )  ,Y(45)  «XCIB(281 . 45 ) . TAUB ( 28 1 . 45 ) , OMEGB ( 28 1 ,45) 
DIMENSION  XI  (63)  ,YI( 27), HX 1(63) . HY 1(27) 

DIMENSION  F ( 63 . 27 ) , HX (63) ,HY(27 ) 

RE AL*8  L.LX.LY.LXPR.LYPR 

COMMON  TAU 1(200) ,TAU2( 200) .TAU3( 200) ,XCI 1(200) ,XCI2(  200) 

COMMON  XC 1 3 ( 200 ) , OMEG 1 ( 200 ) , 0MEG2 ( 200 ) . 0MEG3( 200 ) 

COMMON  C4.C5.DT 
LOGICAL* 1  LFMT ( 1 )/ ' * ' / 


READ  INITIAL  VALUES 

READ(5, LFMT)  XC I  1  (  1  )  , XC 1 2 ( 1  )  , XC 1 3( 1 ) , TAU 1 ( 1 ) . TAU2 ( 1 ) ,TAU3(  1 ) 

N=NUMBER  OF  WAVES,  M=NUMBER  OF  TIME  STEPS,  DT=T IME  STEP 
IDT2  =  NO.  OF  HOURS  BETWEEN  OUTPUT  OF  MAPS. 

READ(5,LFMT)  N , M , DT , IDT2 
WR I TE ( 7 , 22 )  N 

22  FORMAT ( '  NUMBER  OF  WAVES  IS  ',14) 

SET  VALUE  OF  CONSTANTS 

FN  =  DF  LOAT ( N ) 

I CNT=0 
CALL  PLOTS 

CALL  ORGEP ( 1 .0. 1 .0. 1 .0) 

P I =3 .  14  15927D0 
F0= 1 . 03 1 2D-4 
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BETA  =  1 .620-1  1 

DP=5 . 00D4 

SIG=2 . 8D-6 

LY  =  8 . 80D6 

LX  =  2 . 8007 

L=LX/2 . 0D0/PI 

LXPR  =  2 . 000* P I  *  FN/LX 

LYPR=2 . *P I /L Y 

ALPHA=LX/LY 

A2= ALPHA* ALPHA 

BSTAR=L*BETA/FO 

SI  GST  =  DP*DP*SIG/(2. ODO*FO*FO*L*L ) 

G=9 . 806D0 
GAM  = 1 . 2004D0 
I T I  ME  =0 

GAN=GAM*ALPHA*FN 
T0= A2  +  FN*  FN 
T 1 = 1 .0D0/A2+SIGST 
T2=SIGST+ 1 .ODO/TO 
T3=A2+1 .ODO/SIGST 
T4=T0+ 1 .ODO/SIGST 
A2= ALPHA* ALPHA 

Cl =2 . ODO*P I *PI*DP*F0*F0*L**4/ ( G* ALPHA*S I  GST ) 
C6=L**6*PI**4*DP*F0*F0*8 . ODO/ ( G* ALPHA ) 

C3  =  DP*2 . ODO*P I  * L*L/G/ ALPHA 
C4  =  L*L*F0*F  0/ G 
C5=DP*F0* 10. ODO 
M 1 =  M+ 1 

02=2 .000* FO*FO/(SIG*DP*DP) 

C7  =  4 . ODO *D SORT ( 2 . ODO ) *  L*  L  *  FO/L Y 

C8=2 . ODO*PI *FN/LX 

CR=BETA/C8/C8 

C9=2 . ODO* ( 1 .0D0+02/C8/C8) 

WRITE(  12,474)  N.M.DT.IDT2 

474  FORMAT (2I6,4X,E12.6,I5) 

GET  PARAMETERS  FOR  F.E.M.  MODEL  TO  MAKE  OUPUT  CONSISTENT 

READ( 4 , LFMT )  NIU.NJU 
READ( 4 , LFMT )  NI.Nd 
READ( 4 , LFMT )  NILA, NJLA 
RE AD (4, LFMT)  HXU , HYU 
READ(3.LFMT)(X( I ) , 1=1 ,NIU) 

READ(3.LFMT)(Y( I ) , I = 1 . N JU ) 

RE AD (3. LFMT) (XI (I ) , I = 1 ,NI ) 

READ ( 3 , LFMT )(YI(I),I=1,NJ) 

CALL  CALH( HX 1 .XI ,NI ) 

CALL  CALH( HY 1 . YI , Nd ) 

NIM  =  NI -  1 
NdM=Nd- 1 

HX  1  (  NI  )«HX1(tyIM) 

HY 1 ( NI ) =HY 1 ( NdM ) 

NI P=NI 
NdP=Nd 
NIM  =  NI -  1 
NdM=Nd- 1 
DO  60  1=1 .NIP 
60  HX ( I ) =HX 1(1) 

DO  65  d=1 , NdP 
65  HY(d)=HY1(d) 

WR I TE ( 10,475)  CR 

475  FORMAT ( '  ROSSBY  PHASE  SPEED  =  ',  E12.4,//) 

WR I TE ( 10,470) 

470  F0RMAT(4X, ' ITIME' ,3X, 'THERMAL  WIND  MEAN  WIND  '.10X. 

1 'REAL  PHASE  SPEEDS '. 6X ,' IMAGINARY  SPEED '. 4X .' E-TIME ' ) 

WR I TE ( 8  ,  12) 
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12  FORMAT ( 3X . ' TIME ' , 10X . ' APE ' . 13X . 'KE ' . 14X . ' TEN' , 13X , ' PE ' ) 

WR I TE ( 7 , 13) 

13  FORMAT (  '  TIME'  ,6X,  'XCI1'  ,9X,  ' XCI 2 '  ,9X,  ' XCI 3 '  ,9X, 

1  ' TAU 1 '  . 9X ,  ' T  AU2 '  .9X,  ' T  AU3 '  . 9X ,  ' OMEG 1 '  . 8X ,  ' 0MEG2 '  . 8X ,  ' 0MEG3 '  ) 
DO  500  1=1 ,M 
I T I  ME  =  1-1 

FIND  THE  VERTICAL  VELOCITIES 

OMEG 1 ( I )=-GAN/T 1*(TAU2( I )*XCI3( I )-TAU3( I ) *XCI2( I ) ) 

0MEG2 ( I )  =  ( ( ( TAU 1 ( I ) *XC 1 3( I )+TAU3( I )  *XCI  1  ( I ) )*FN*FN/TO 

1  - ( T AU3 ( I  )*XCI 1 ( I  )  -TAU 1 ( I ) *XC I  3 ( I ) ) ) *GAN 

2  -BSTAR*FN*TAU3( I )/T0)/T2 

0MEG3 ( I  )  =  ( ( ( T AU2 ( I  )*XCI 1 ( I )-TAU1 ( I  )*XCI2( I  )  ) 

1  -(TAU  1(1)* XC 12(1  )  +  TAU2( I ) *XCI 1 ( I ) ) * FN*FN/TO ) *GAN 

2  +BSTAR*FN*TAU2( I )/T0)/T2 

IF(I.EO.I)  WRITE( 12,  1000)  XCI  1  (  1  )  . XCI 2( 1  )  , XCI3( 1 ) , TAU 1 ( 1 ) . 

1  T AU2 ( 1 ) , T AU3 ( 1 ) ,0MEG1(  1  )  ,0MEG2( 1 ) ,0MEG3( 1 ) 

1000  F0RMAT(9( 1X.E12.4)) 

WRITE (7,  10)  ITIME.XCI 1( I ) ,XCI2( I ) ,XCI3( I ) , TAU 1 ( I ) , T  AU2 ( I ) , 

1  T  AU3 ( I ) . OMEG 1 ( I ) , 0MEG2 ( I ) ,0MEG3( I ) 

10  F0RMAT(3X , 14 ,9( IX , E 12 . 4 ) ) 

CALCULATE  PHASES 

PHI H( I ) =DAT  AN2 ( XC 1 2 ( I ) , XCI3( I ) )* 180.0D0/PI 
PHIT ( I )=DATAN2(TAU2( I ) ,TAU3( I ) ) *  1 80 . ODO/P I 
DPHI ( I ) =PHIH( I ) -PHI T ( I ) 

CALCULATE  THEORETICAL  PARAMETERS 

UT  =  C7*TAU1 ( I ) 

UST  =C7*XCI 1(1) 

D=(Q2*CR/C8/C8)**2+4 . ODO* ( 1 . ODO- ( 02/C8/C8 ) * *2 ) *UT*UT 
CTEMP= - ( 2 . ODO+Q2/C8/ C8 ) *CR 
I  F  (  D . GE . O . ODO )  GO  TO  400 

IMAGINARY  PHASE  VELOCITY 

CREA2=0 . ODOO 
CIM=DS0RT(-D)/C9 
CREA 1 =CTEMP/C9 
ETAU= 1 .0D0/CIM/C8 
GO  TO  450 

400  CREA 1 = ( CTEMP+DSORT (D ) )/C9 
CRE A2= ( CTEMP-DSORT ( D ) ) /C9 
C I M=0 . ODO 
ETAU=0 . ODO 

450  WRITE( 10. 460)  I  .  UT , UST , CREA 1 , CRE A2 , C IM . ETAU 
460  FORMAT (3X,I4,6(4X,E12.4)) 

CALCULATE  ENERGIES. 

APE( I ) =TAU 1 ( I  )  *TAU 1 ( I  )  +  TAU2( I )*TAU2(I )+TAU3(I )*TAU3(I ) 

APE ( I ) = APE ( I ) *C 1 

EKE  ( I  )  =XC 1 2 ( I  )*XCI2( I  )  +  XCI3( I ) *XCI3( I )  +  TAU2( I ) *TAU2 ( I ) 

1  +TAU3 ( I  )*TAU3( I ) 

EKE ( I  )  =  (EKE(  I  )*(  1  . ODO/L Y/L Y  +  FN* FN/LX/LX )+ ( XC I  1 ( I ) *XCI 1  (  I ) 

1  +TAU1 ( I  )  *  TAU 1 ( I ) )/LY/LY ) 

EKE ( I ) =EKE ( I ) *C6 

TEN( I ) = APE ( I )+EKE ( I ) 

CALCULATE  POTENTIAL  ENSTROPHY . 

Q1=(DABS(A2*XCI 1 ( I )+T3*TAU1 ( I ) ) )**2 

2  +(DABS( T0*XCI2(  I)+T4*TAU2(I)))**2 
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1  +(DABS(T0*XCI3( I )+T4*TAU3( I ) ) ) **2 
Q1=LX*LY*Q1/2. 0D0 

Q3=(DABS(A2*XCI 1( I )-T3*TAU1( I ) ) )**2 

2  +(DABS(T0*XCI2( I ) -T4  *TAU2 ( I ) ) )**2 
1  +(DABS(T0*XCI3( I ) -T4  *TAU3 ( I ) ) )**2 

Q3=LX*LY*Q3/2 . 0D0 
PE( I )=(Q1+Q3)*C3 

WRITE(8.  1  DITIME,  APE  (  I  )  ,  EKE  ( I  )  .  TEN(  I  )  ,  PE  ( I  ) 

11  F0RMAT(3X, 1 4 , 4 ( 4X , E12.4) ) 

I2  =  ( 1-1  )/IDT2*IDT2 
I3=I2-( 1-1  ) 

I F ( 1 3 . EQ . 0 )  I CNT  = I CNT  + 1 
I 4= ( I CNT- 1 )/4*4-( I CNT- 1 ) 

IF(I4  .  EQ.O.AND.  I3.EQ.0)  CALL  OUTPT(  I  ,  X  .  Y  ,  NIU ,  N«JU  ,  LXPR  , 

1  L YPR , HXU , HYU.XCIB.TAUB, OMEGB . DT ) 

IF(I3.EQ.O)  CALL  FOUT ( F . NI , NJ , HX , HY . XCI 1 ( I ) , XCI 2 ( I ) , XCI 3 ( I ) , 

1  LXPR , L YPR  ) 

IF(I3.EQ.O)  CALL  FOUT( F , NI , NJ . HX , HY , TAU 1 ( I ) , TAU2 ( I ) . TAU3( I ) , 

1  LXPR , L YPR ) 

BEGIN  INTEGRATION 

T IME  =  I *DT 

I F ( I .NE . 1 )  GO  TO  100 
FIRST  STEP:  USE  EULER 

T  AU 1(2) =TAU 1 ( 1 ) -OMEG 1 ( 1 )  *DT /ALPHA /ALPHA 
T 1 BAR  = ( T  AU 1 ( 1  )+TAU1(2))/2. ODO 

T AU2 ( 2 )  =T AU2 ( 1  )  +  ( ( T  1  BAR*XC I  3 ( 1  )+TAU3( 1 ) *XC 11(1) ) * FN* FN*GAN/TO 
1  -BSTAR*FN*TAU3( 1 )/T0-0MEG2( 1 )/TO)*DT 
T2BAR=(TAU2( 1 ) +TAU2 ( 2 ) ) /2 . ODO 

T AU3 ( 2 ) =T AU3 ( 1  )  + ( - ( T 1BAR *XC I  2 ( 1 )+T2BAR*XCI 1( 1 ) )*FN*FN*GAN/TO 
1  +BSTAR*FN*T2BAR/T  0-0MEG3 ( 1 )/TO)*DT 
XCI  1  (2)=XCI 1(1) 

T3BAR= ( T  AU3 ( 1 )+TAU3(2) )/2 .ODO 

XCI2(2)=XCI2(  1  )  +  ( (XCI 1( 1 ) *XC 1 3 ( 1 )+T 1BAR*T3BAR ) 

1  *GAN *FN*FN/TO~B STAR *FN* XCI 3( 1)/T0)*DT 
X2BAR= ( XCI 2 ( 1 )+XCI2(2) )/2 .ODO 

XCI3(2  )=XCI3( 1  )  +  ( -  (XCI 1 ( 1 )*X2BAR+T 1BAR*T2BAR) 

1  *GAN*FN*FN/T0+BSTAR*FN*X2BAR/T0)*DT 
GO  TO  500 
lOO  CONTINUE 
11=1+1 
12=1-1 


USE  ADAMS-BASHFORTH  METHOD  FOR  SUBSEQUENT  TIME  STEPS 
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XCI1(I1)=XCI1(I) 

TAU1( I  1 )=TAU1(I)-(3. ODO* OMEG 1 ( I ) /ALPHA/ALPHA/2 . ODO 
-OMEG 1 (12 ) /ALPHA/ ALPHA/ 2 . )*DT 
C  =  (TAU1( I  )  *XC I  3 ( I  )  +  T AU3 ( I ) *XCI 1 ( I ) ) *GAN*FN*FN/TO 
-BSTAR*FN*TAU3( I )/T0-0MEG2( I ) /TO 
C2=(TAU1 ( 12 ) *XC 1 3 ( I2)+TAU3( 12)* XCI 1 ( 12 ) )*GAN*FN*FN/TO 
-BSTAR*FN*TAU3( 1 2 )/T0-0MEG2 ( I2)/T0 
T  AU2 ( I  1 )=TAU2(I )  + ( 3 . ODO  +  C/2 . ODO-C2/2 . ODO ) *DT 
C  =  - ( T  AU 1 ( I ) *XCI2( I )  +  TAU2( I )*XCI 1( I ) ) *GAN*FN*FN/TO 
+BSTAR*FN*TAU2( I )/TO-OMEG3( I )/T0 
C2  =  -(TAU1( I2)*XCI2( 1 2 )+TAU2 ( 1 2 ) *XCI 1( 12) ) *GAN*FN*FN/TO 
+BSTAR*FN*TAU2( I2)/TO-OMEG3( I2)/T0 
T  AU3 ( 1 1  )  =T  AU3 ( I )  +  ( 3 . ODO  +  C/2 . ODO-C2/2 . ODO ) *DT 
C=XCI 1 ( I )*XCI3( I ) *GAN*FN*FN/T0-BSTAR*FN#XCI3( I )/T0 
C2  =  XCI 1 ( 12  )*XCI3( 12 )*GAN+FN^FN/T0-BSTAR  =  FN*XCI3( I2)/T0 
T=(TAU1( I )*TAU3( I )  +  TAU1 ( I  1 )*TAU3( I  1 ) ) *GAN*FN*FN/T0/2 . 
XCI2( I  1 ) =XC 1 2 ( I )  +  ( 3 . 0D0*C/2 . ODO-C2/2 . ODO+T ) *DT 
FROM  EQN .  12 

C  =  XCI  1( I  )*XCI2(I )  +  XCI 1 ( I  1 )*XCI2( I  1 ) 


. 

«£<• 
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311 
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313 
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1  +  T  AU 1 ( I  )  *TAU2 ( I  )  +  T AU 1 ( I  1 )*TAU2( I  1 ) 

C2=XCI2( I  )  +XC 1 2 ( I  1  ) 

XC 13(11) =XCI 3(1 )-C*GAN*FN*FN/T0*DT/2 .000+ 

1  C2*BSTAR*FN/TO*DT/2 . 0D0 
500  CONTINUE 

DXC1  =  (XCI  1(2)-XCI  1(  1  )  )/DT 
DXC2=(XCI2(2)-XCI2( 1 ) )/DT 
DXC3=(XCI3(2)-XCI3( 1 ) )/DT 
DTA 1  =  (TAU1 (2)-TAU1 ( 1  )  )/DT 
DTA2=(TAU2(2)-TAU2( 1 ) )/DT 
DTA3=(TAU3(2)-TAU3( 1  )  )/DT 

WRITE (  12,  1000)  DXC 1 , DXC2 , DXC3 , DTA 1 , DTA2 , DTA3 

PLOT  OUTPUT  PARAMETERS 

DO  600  1=1 .M 
A ( I ,  1 )=XCI  1(1) 

A  (  I  , 2 ) =XC 1 2 (  I  ) 

A  ( I  .  3)=XCI3( I  ) 

A ( I , 4 ) =T  AU  1(1  ) 

A ( I , 5 ) =TAU2 ( I  ) 

A ( I , 6  )  =TAU3 ( I ) 

A ( I , 7)=0MEG1 ( I ) 

A (  I  ,  8  )  =0MEG2 ( I ) 

A ( I , 9 ) =0MEG3 ( I ) 

600  CONTINUE 

CALL  SPLATM(A, 200, 9,9,M1,2,-.5D-1, .5D-1) 

PLOT  ENERGYS 

DO  620  1=1 ,M 
A ( I , 1 )  =  EKE(I  ) 

A ( I , 2  )  =APE ( I  ) 

A ( I , 3 ) =TEN( I ) 

620  CONTINUE 

CALL  SPLATM(A, 200 , 9 , 3 , M 1 , 2 . 0 . ODO , 0 . ODO ) 

PLOT  PHASES 

DO  640  1=1 , Ml 
A ( I , 1 )=PHIH( I ) 

A ( I , 2 ) =PHI T ( I  ) 

A ( I , 3)=DPHI ( I ) 

640  CONTINUE 

CALL  SPLATM(A, 200 , 9 , 3 , M 1 ,2, -180. ODO, 180. ODO) 

CALL  PL0T(0. 0,0. 0,999) 

STOP 

END 

SUBROUTINE  OUTPT ( I , X , Y . NIU , NJU , LXPR , L YPR , HXU , HYU , XC IB , TAUB , 
1  OMEGB.DT) 

SET  UP  FIELDS  TO  BE  PLOTTED  IN  MANNER  CONSISTENT  WITH  FEM 
IMPLICIT  REAL*8  (A-H.O-Z) 

DIMENSION  XCIB(NIU, NUU ) ,TAUB(NIU, NJU ) , OMEGB (NIU, NJU ) 
DIMENSION  X(NIU) , Y(NUU) 

REAL*8  LXPR , L YPR 

COMMON  TAU 1(200) ,TAU2( 200), TAU3( 200), XCI 1(200) ,XCI 2(200) 
COMMON  XC I  3 ( 200 ) , OMEG 1 ( 200 ) , 0MEG2 ( 200 ) , 0MEG3 ( 200 ) 

COMMON  C4.C5 
RT2=DSQRT ( 2 . ODO) 

DO  20  K I = 1 , NIU 

XX  =  LXPR*(X(KI ) -HXU ) 

CX  =DCOS ( XX  ) 

SX=DSIN( XX  ) 

DO  20  KJ= 1 .NJU 
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351 
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353 

354 

355 

356 

357 

358 

359 

360 

361 
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YV=LVPR*( Y(KJ)-HYU) 

CY  =DCOS ( Y Y ) 

S Y  =DS I N( Y Y ) 

S=SX*SY 

C=CX*SY 

XC I B ( K I ,KJ)=RT2*CY*XCI 1 ( I )+2 ,0D0*S*XCI2( I )+2 . ODO*C*XCI 3 ( I ) 

T  AUB ( K I , KU )=RT2*CY*TAU1 ( I )  +  2 . ODO* S *T AU2 ( I ) +  2 . ODO*C *TAU3 ( I ) 
OMEGB ( K I ,KJ)=RT2*CY*0MEG1 ( I ) +2 . ODO*S*OMEG2 ( I )+2 . 0D0*C*0MEG3( I ) 
XC I B ( K I ,KJ)=C4*XCIB(KI .  K  J ) 

T  AUB ( K I , KJ)=C4*TAUB(KI ,KU) 

OMEGB (KI ,  KU ) =C5* OMEGB ( KI , K J ) 

20  CONTINUE 

CALL  FPLOT(XCIB,NIU, NUU , 1 ) 

CALL  FPLOT ( TAUB , NIU, NJU , 1 ) 

CALL  FPLOT ( OMEGB . NIU , NJU , 0 ) 

RETURN 

END 

SUBROUTINE  FOUT(F ,NI , N J , HX , HY . F 1 , F 2 , F 3 , LXPR , LYPR ) 

IMPLICIT  REAL*8  (A-H.O-Z) 

OUTPUT  FIELDS  FOR  DIAGNOSTIC  PROGRAM 

DIMENSION  F(NI , N J ) ,HX(NI ) ,HY(NJ) 

REAL*8  LXPR, LYPR 
FI  1  =  F 1 *DSQR1 (2. ODO) 

F22=F2*2 .ODO 
F33=F3*2 .ODO 
SY=0 . ODO 
DO  100  J=1 ,NJ 
J1=J-1 

IF(d1 . EQ.O)  GO  TO  110 
SY  =  SY  +  HY ( J 1 ) 

1 10  Y2=SY*LYPR 
SI Y  =  DSIN( Y2 ) 

COY  =DCOS( Y2 ) 

SX=0 . ODO 
DO  100  1=1. NI 
11=1-1 

I F ( I  1  .EQ.O)  GO  TO  120 
SX  =  SX  +  HX( I  1 ) 

120  X2=SX*LXPR 
S I X=DS I N( X2 ) 

C0X=DC0S(X2) 

S=SI Y*SIX 
C=SIY*COX 

F  (  I  ,  U  )  =  F  1  1*C0Y  +  F22’*S  +  F33*C 
100  CONTINUE 

WRITE(II)  F 

RETURN 

END 
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C  FILE:  DIFF 

C  OBJECT  FILE:  DIFF.O 

C  SUBROUTINES: 

C  -  DXDYDS 

C  -  CALH 

C  -  SETD2 

C  -  D2XYS 

C 

c 

c 

SUBROUTINE  DXDYDS ( R , U , CON , ALONGX , ALONGY , NI  .  N J ) 

C 

C  S/R  :  DXDYDS  -  CALCULATES  A  DIFFERENCE  IN  X  AND  Y  DIRECTIONS 
C 

C  AUTHOR  :  ANDREW  STANI FORTH 
C 

C  REVISION  001:  T.  GOOS  -  1979-80  ADAPTED  FOR  AMDAHL  AT  U  OF  A 
C 

C  ARGUMENTS  : 

C  OUT  -  R 

C  IN  -  U 

C  -  CON 

C  -  ALONGX 

C  -  ALONGY 

C  -  NI 

C  -  NJ 

C 

c 
c 

IMPLICIT  RE AL *8  (A-H.O-Z) 

DIMENSION  R (NI , NJ ) , U( NI , NJ ) 

LOGICAL  ALONGX .ALONGY 
CONX= . 50D0*C0N 
NI M=NI - 1 
NJM=NJ- 1 

I F ( ALONGX )  GO  TO  100 
IF (ALONGY)  GO  TO  200 
RETURN 

X  -  DERIVATIVE 

100  CONTINUE 
IT  =  NI -2 
DO  150  J= 1 .NJ 
DO  140  1  =  1  . IT 
11=1+1 
12=1+2 

140  R ( I  1 . J)=C0NX*(U(I2, J)-U( I . J) ) 

R (  1  . J)=C0NX*(U(2, J)-U( 1 . J) ) 

R ( NI , J)=CONX*(U(NI .J)-U(NIM.J)) 

150  CONTINUE 
RETURN 

Y  -  DERIVATIVE 

200  CONTINUE 
I T  =  NJ-2 
DO  250  1=1 .NI 
DO  240  J= 1 . IT 
J1=J+1 
J2= J+2 

240  R( I . J 1 ) =CONX * ( U( I . J2)-U(I . J) ) 

R( I . 1 ) =CONX * ( U ( I , 2  ) ~U( I ,  1  )  ) 


RESULT 

FIELD  TO  BE  DIFFERENCED 
MULTIPLICATIVE  CONSTANT 
IF  .TRUE.  DIFFERENCE  IN 
IF  .TRUE.  DIFFERENCE  IN 
X  DIMENSION 
Y  DIMENSION 


(MULTIPLIES 
X  DIRECTION 
Y  DIRECTION 


DERIVATIVE ) 
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1  1  1 
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1  15 
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1  18 

1  19 

120 
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123 
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129 


171 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


R(  I  ,  NJ  )  =C0NX*  (U(  I  ,  NJ  )  -U(  I  ,  N<JM  )  ) 

250  CONTINUE 
RETURN 
END 

SUBROUTINE  CALH(H.X.M) 

S/R:  CALH  -  CALCULATION  OF  GRID  LENGTHS  FROM  POINTS  X. 

H( I  )=X( 1  +  1  )-X( I  )  .  1  =  1, M-1 

AUTHOR:  A.  STANIFORTH  -  1973 

REVISION  001:  A.  STANIFORTH  -  C.  THIBEAULT  JAN  79  DOCUMENTATION 
REVISION  002:  T.  GOOS  -  1979-80  ADAPTED  FOR  AMDAHL  AT  U  OF  A 

CALL:  CALL  CALH(H.X.M) 

ARGUMENTS : 

OUT  -  H  -  GRID-LENGHTS 

IN  -  X  -  ARRAY  OF  POINTS  IN  ASCENDING  ORDER 
-  M  -  LENGHT  OF  ARRAYS  H  AND  X 

NOTES:  -  H(M)  IS  NOT  CALCULATED 


IMPLICIT  REAL *8  (A-H.O-Z) 

DIMENSION  X(M) ,H(M) 

DO  10  1=2, M 
11=1-1 

H(  I  1 ) =X( I  ) -X (  I  1  ) 

10  CONTINUE 
RETURN 
END 

SUBROUTINE  SETD2 ( A . B , C , CON . H , N ) 

S/R  :  SETD2  -  SET-UP  ELEMENTS  OF  TRI-DIAGONAL  MATRIX  USED  IN  S/R 
D2XYS  FOR  TAKING  SECOND  DERIVATIVES. 

AUTHOR  -  ANDREW  STANIFORTH  -  JAN  79 


REVISION  OOI : 

T 

.  GOOS  -  1979-80  ADAPTED  FOR  AMDAHL  AT  U  OF  A 

ARGUMENTS : 

OUT  -  A 

- 

LOWER-DIAGONAL  ELEMENTS 

-  B 

- 

DIAGONAL  ELEMENTS 

-  C 

- 

UPPER-DIAGONAL  ELEMENTS 

-  CON 

- 

MULTIPLICATIVE  FACTOR  (CON*SECOND  DERIVATIVE) 

-  H 

- 

MESH-LENGTHS 

-  N 

- 

NUMBER  OF  NODAL  POINTS 

IMPLICIT  REAL*8  (A-H.O-Z) 

DIMENSION  A(N),B(N),C(N),H(N) 

HR=CON/H( 1 ) 

B ( 1 ) =0 . ODO 
NM=N- 1 

DO  100  1=1, NM 
11=1+1 
HR  =  CON/H( I  ) 

A ( I  1  ) =HR 
B ( I )=B( I ) -HR 
B ( I  1 )  =  -HR 
100  C ( I ) =HR 
RETURN 
END 

SUBROUTINE  D2XYS( R , U . CON . ALONGX . ALONGY , NI . NJ ) 
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C 

C  S/R:  D2XY5  -  CALCULATES  2ND  DERIVATIVE  IN  X-  OR  Y- 
C  DIRECTION  DEPENDING  UPON  WHETHER  ALONGX  OR 

C  ALONGY  IS  TRUE. 

C 

C  AUTHOR:  A.  STANIFORTH  -  OCTOBER  1977 
C 

C  REVISION  001:  A.  STANIFORTH  -  C.  THIBEAULT  JAN  79  DOCUMENTATION 
C  REVISION  002:  T.  GOOS  -  1979-80  ADAPTED  FOR  AMDAHL  AT  U  OF  A 
C 

C  CALL:  CALL  D2XYS ( R , U , CON . ALONGX . ALONGY , NI , Nd ) 

C 

C  ARGUMENTS: 


c 

OUT 

-  R 

RESULT 

c 

IN 

-  U  *  - 

INPUT  FIELD  TO  BE  TWICE  DI FFERENCI ATED 

c 

-  CON 

CONSTANT 

c 

-  ALONGX  - 

IF  TRUE  DIFFERENTIATE 

IN 

X-DIRECTION 

c 

-  ALONGY  - 

IF  TRUE  DIFFERENTIATE 

IN 

Y-D I RECT ION 

c 

-  NI 

X-DIMENSION 

c 

c 

-  Nd 

Y-DIMENSION 

c 

IMPLICIT  REAL+8 

(A-H.O-Z) 

DIMENSION  R(NI ,NJ) ,U(NI , Nd ) 
COMMON  /  WKS1D4  /  WK4(1) 
COMMON  /  WKS1D5  /  A ( 1 ) 
COMMON  /  WKS1D6  /  B( 1 ) 
COMMON  /  WKS1D7  /  C ( 1 ) 
COMMON  /  HXMESH  /  HX( 1 ) 
COMMON  /  HYMESH  /  HY ( 1 ) 
LOGICAL  ALONGX, ALONGY 


NI M=NI - 1 
NdM=Nd- 1 

IF (ALONGX)  GO  TO  100 
I F( ALONGY)  GO  TO  200 
RETURN 

X-DIRECTION 

100  CONTINUE 

CALL  SETD2(A,B,C,C0N, HX , NI ) 

DO  130  d= 1 .Nd 

WK4 ( NI ) =B ( NI )*U(NI ,d) 

DO  120  1=1, NIM 
11=1+1 

120  WK4( I )=C( I )*U(I 1 ,d)+B( I )*U( I ,d) 
DO  125  1=1, NIM 
11=1+1 

125  R( I  1 ,d)=A( I  1 )*U(I ,d)  +  WK4(I 1 ) 

R ( 1 , d  )  = WK4 (  1 ) 

130  CONTINUE 
RETURN 

Y -DIRECT  I  ON 

200  CONTINUE 

CALL  SETD2(A,B,C. CON , HY , Nd ) 

DO  230  I = 1 , NI 

WK4 ( Nd ) =B ( Nd  )  *U ( I , Nd ) 

DO  220  d= 1 , NdM 
d1=d+1 

220  WK4 (d)=C(d)*U( I,d1)+B(d)*U(I.d) 
DO  225  d=1 .NdM 
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196 

<J  1  =  J+  1 

197 

225  R( I ,J1 ) = A ( J 1 )  *U  ( I ,U)+WK4(J1  ) 

198 

R( I ,  1 ) = WK4 (  1  ) 

199 

230  CONTINUE 

200 

RETURN 

201 

END 

202 

SUBROUTINE  GDADGD( R , CONG , G , CONH , H , NI , N J ) 

203 

C 

204  ' 

C 

S/R:  GDADGD  -  R( I , J  )=CONG*G( I , J )+CONH*H( I 

205 

C 

206 

C 

AUTHOR:  A.  STANIFORTH  DEC  78 

207 

C 

208 

C 

REVISION  001:  T.  GODS  -  1979-80  ADAPTED  FOR 

209 

C 

210 

C 

ARGUMENTS : 

211 

C 

OUT  -  R  -  RESULTING  GRID 

212 

C 

IN  -  CONG  -  MULTIPLICATIVE  CONSTANT  FOR 

213 

C 

-  G  -  FIRST  INPUT  GRID 

214 

C 

-  CONH  -  MULTIPLICATIVE  CONSTANT  FOR 

215 

C 

-  H  -  SECOND  INPUT  GRID 

216 

C 

-  NI  -  DIMENSION  OF  X-DIRN 

217 

C 

-  NJ  -  DIMENSION  OF  Y-DIRN 

218 

C 

-  R  AND  G  MAY  SHARE  THE  ^AME  SPACE  IF  G  NOT 

219 

C 

220 

C 

-  R  AND  H  MAY  SHARE  THE  SAME  SPACE  IF  H  NOT 

221 

C 

222 

C 

223 

IMPLICIT  REAL*8  (A-H.O-Z) 

224 

DIMENSION  R ( NI , NJ ) , G( NI , NJ ) , H( NI , NJ ) 

225 

DO  20  J= 1 ,NJ 

226 

DO  20  1=1 ,NI 

227 

R ( I , J)=CONG*G( I , d )+CONH*H( I , J) 

228 

20  CONTINUE 

229 

RETURN 

230 

END 

END  OF  FILE 


,  J) 


AMDAHL  AT  U  OF  A 


FIRST  INPUT  GRID 
SECOND  INPUT  GRID 


REQUIRED  SUBSEQUENTLY 
REQUIRED  SUBSEQUENTLY 
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c 

c 

C  FILE:  INTERP 
C  OBJECT  FILE:  INTERP. O 
C  SUBROUTINES: 

C  -  INTRPT 

C  -  DINT 

C  -  R0SSR3 

C  -  SPD 

C  -  FD1 

C  -  FDM 

C 

c 

c 

SUBROUTINE  INTRPT (FI , I F I . JFI , F , I F , JF , XI . Y I . X , Y , FX , F Y , FXY . 

1  HX ,HY,KL,P,S,C,A,D, WORK , KDER ) 

C 

C  ORIGINALLY  WRITTEN  AT  DRPN ,  DORVAL  P.Q. 

C 

C  REVISION  001:  T.  GOOS  -  1979-80  ADAPTED  FOR  AMDAHL  AT  U  OF  A 
C 

C  INTRPT  DOES  2-DIMENSIONAL  SPLINE  INTERPOLATION.  THE  INPUT  F(IF.JF)  IS 
C  DEFINED  ON  THE  PTS  ( ( X ( I  )  , Y ( J  ) . I  =  1 . I F ) , J  = 1 , JF ) .  THE  OUTPUT 
C  FI(4.IFI, JFI)  IS  CALCULATED  AT  PTS  ( ( X I ( I  ) , Y I ( J ) . I  =  1 , I F I ) , J= 1 , JF I ) 

C  USING  B I -CUB I C  SPLINES  IN  TERMS  OF  THE  PARTIAL  DERIVATIVES  OF  F.FX.FY, 
C  FXY.  THESE  P.D.S  ARE  CALCULATED  BY  SPD.  (IF  KL.E0.1.  FXY=DX(DY ( F ) ) , 

C  WHILE  IF  KL.NE.1.  FX Y -DY ( DX ( F ) ) ) . 

C  FD 1  AND  FDM  RETURN  END  PT  DERIVATIVES  USED  BY  SPD. 

C  THE  VECTORS  X I , Y I , X , Y . ( HX ( I )  =  X ( 1+ 1 ) -X ( I ) , I  =  1 , I F -  1 ) , 

C  (HY( J)=Y( J+1 )-Y( J) . J=1 , JF-1 ) .  ARE  ADDITIONAL  INPUT. 

C  THE  ACTUAL  INTERPOLATION  IS  DONE  BY  THE  ROUTINE  DINT.  AFTER  THE 
C  EVALUATION  OF  FX.FY.FXY. 

C  IF  KDER=FALSE ,  THEN  ONLY  INTERPOLATED  VALUES  OF  THE  FUNCTION  ARE 
C  RETURNED. 

C  IF  KDER=TRUE .  THE  VALUES  OF  THE  X.Y  AND  XY  DERIVATIVES  AT  THE 
C  INTERPOLATED  PTS  WILL  ALSO  BE  RETURNED. 

C 

IMPLICIT  REAL*8  (A-H.O-Z) 

DIMENSION  FI(4, IFI . JFI ) 

DIMENSION  F  (IF.JF) 

DIMENSION  FX(IF.JF) 

DIMENSION  FY(IF.JF) 

DIMENSION  FXY(IF.JF) 

THE  PROPER  DIMENSIONS  HERE  ARE  IFI . JFI , IF . JF . IF . JF 

DIMENSION  XI  (  IFI  ) 

DIMENSION  YI( JFI  ) 

DIMENSION  X( IF ) 

DIMENSION  Y ( JF ) 

DIMENSION  HX (IF) 

DIMENSION  HY( JF ) 

WORKING  STORAGE  FOR  SPD . R0SSR3  (LENGTH  MAXO(IF.JF)  IS  SUFFICIENT) 

DIMENSION  P ( I F ) 

DIMENSION  S ( I F ) 

DIMENSION  A ( I F ) 

DIMENSION  C( IF) 

DIMENSION  D( I F ) 

WORKING  STORAGE  FOR  DINT 
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DIMENSION  WORK ( JF I , 8 ) 

LOGICAL  KDER 

CHECK  TO  ENSURE  EXTRAPOLATION  IS  NOT  BEING  ATTEMPTED  A  MACHINE 
DEPENDENT  INCREMENT  IS  ADDED  IN  TEST  TO  ACCOUNT  FOR  MACHINE  ROUND-OFF. 

X  1  =X I  (  1  )  +DABS ( X I ( 1 )* 1 ,D-12)-X(  1 ) 

I F ( X 1 . LT . 0 . )  WR I TE ( 6 , 900 )  XI(1),X(1) 

I F ( X 1 . LT . 0 . )  STOP 

X1=YI(  1  )+DABS(YI( 1 )*1 .D-12)-Y(  1  ) 

IF(XI.LT.O)  WR I TE ( 6 , 90 1  )  YI(1).Y(1) 

I F ( X 1 .LT .0. )  STOP 

X  1  =  X (  1  )  +DABS (  X(  1  )* 1 .D- 12)-XI ( 1 ) 

X1=X(IF)+DABS(X(IF)*1 .D-12)-XI(IFI) 

I F ( X 1  . LT . 0 .  )  WRI TE ( 6 , 902 )  I  F  ,  X  ( I F  )  ,  I F  I  ,  X I  ( I  F I  ) 

I F ( X 1 . LT .0. )  STOP 

X 1=Y(UF  )  +DABS ( Y ( JF ) *  1 ,D-12)-YI(JFI) 

IF(X1.LT.O.)  WR I TE ( 6 , 903 )  JF , Y ( JF ) , JF I . Y I ( JF I ) 

IF(X1 . LT .0. )  STOP 

900  F ORMAT (  1 H 1  ,  '  EXTRAPOLATION  ATTEMPTED.  DETECTED  BY  INTRPT .  XI(1)=', 
1E16.8,  'LT  X( 1  )='  .E16.8) 

901  FORMAT ( 1 H 1 , '  EXTRAPOLATION  ATTEMPTED,  DETECTED  BY  INTRPT.  YI(1)=', 
1E16.8,  'LT  Y(  1  )  =  ' , E 1 6 . 8 ) 

902  FORMAT ( 1H1 , '  EXTRAPOLATION  ATTEMPTED,  DETECTED  BY  INTRPT.  X(',I5, 
1')=',E16.8,'LT  X I ( ' ,15,  ' )='  , E 1 6 . 8 ) 

903  FORMAT ( 1H1 , '  EXTRAPOLATION  ATTEMPTED,  DETECTED  BY  INTRPT.  Y(',I5, 
1')=',E16.8,'LT  YI(',I5,')=',E16.8) 

CMU 1 =0 . ODO 
CLMDAM  =  O.ODO 
I F ( KL . NE . 1 )  GO  TO  150 
10  DO  100  1  =  1  ,  IF 
DO  50  J=1 . JF 
S(J)=F(I,J) 

50  CONTINUE 

C 1 =FD 1 ( S , HY , JF  ) 

CM  =  FDM(S.HY.JF) 

CALL  SPD  (P.S. JF.HY.CMU1 ,C1 , CLMDAM , CM , A , C , D ) 

DO  60  J=1 . JF 
FY( I ,J)=P(J) 

60  CONTINUE 

IF(KL.EQ.I)  GO  TO  100 
DO  70  J=1 , JF 
S( J)=FX(I . J) 

70  CONTINUE 

C1=FD1(S,HY,JF) 

CM=FDM( S , HY , JF ) 

CALL  SPD ( P , S , JF , HY , CMU 1 , C 1 , CLMDAM . CM , A , C . D ) 

DO  75  J=1 , JF 
FXY( I ,J)=P(J) 

75  CONTINUE 
100  CONTINUE 

IF(KL .NE . 1 )  GO  TO  600 
150  DO  500  J=1 , JF 
DO  200  1  =  1  , IF 
S(I)=F(I.J) 

200  CONTINUE 

C  1  =FD 1 ( S , HX , IF) 

CM=FDM(S,HX. IF) 

CALL  SPD ( P , S , I F , HX , CMU 1 , C 1 , CLMDAM , CM , A , C , D ) 

DO  210  1  =  1  .  IF 
FX ( I , J  )  =P ( I  ) 

210  CONTINUE 

IF(KL .NE . 1 )  GO  TO  500 
DO  260  1  =  1,  IF 
S( I )=FY( I , J) 

260  CONTINUE 
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C1=FD1(S.HX, IF) 

CM=FDM( S , HX , IF ) 

CALL  SPD (  P  ,  S  , IF.HX.CMU1 ,C1 , CLMDAM , CM , A  ,  C  ,  D ) 

DO  280  1=1,  IF 
FX Y ( I , J ) =P ( I ) 

280  CONTINUE 
500  CONTINUE 

I F ( KL . NE . 1 )  GO  TO  10 

600  CALL  DINT (FI , IFI ,JFI , F , I F , JF , FX,FY,FXY,XI ,YI ,X,Y, HX , HY  , 

1  WORK (  1  ,  1 ) , WORK( 1 ,2)  .WORK ( 1 , 3) .WORK( 1 ,4) .WORK ( 1 .5) . WORK( 1,6), 

2  WORK(  1 , 7)  , WORK( 1 ,8) ,KDER) 

RETURN 

END 


SUBROUTINE  D INT ( F I , I F I . JF I , F , I F . JF , FX 
1  ZA , ZB , ZC , ZD , ZAY , ZBY , ZCY , ZDY . KDER ) 

IMPLICIT  RE AL *8  (A-H.O-Z) 

DIMENSION  FI(4, IFI , JFI ) 

DIMENSION  F(IF.JF) 

DIMENSION  FX(IF.JF) 

DIMENSION  FY(IF.JF) 

DIMENSION  FX Y ( I F , JF  ) 

DIMENSION  XI ( IFI  ) 

DIMENSION  YI(JFI) 

DIMENSION  X ( I F ) 

DIMENSION  Y ( JF ) 

DIMENSION  HX (IF) 

DIMENSION  HY(JF) 

DIMENSION  ZA( JFI  )  ,ZB( JFI ) ,ZC( JFI ) ,ZD( JFI ) 
DIMENSION  ZAY( JFI ),ZBY( JFI ) ,ZCY( JFI ) ,ZDY( JFI ) 
LOGICAL  KDER 


FY.FXY.XI , Y I , X , Y , HX , HY 


C 

C  ORIGINALLY  WRITTEN  AT  DRPN ,  DORVAL  P.Q. 

C  REVISION  001:  T.  GOOS  -  1979-80  ADAPTED  FOR  AMDAHL  AT  U  OF  A 
C 

C  THE  DISCRETE  FN  F(I,J)  IS  ASSUMED  KNOWN  AT  THE  PTS  WHOSE  COORDS  ARE 
C  (X(I),Y(J)),  WHERE  1=1,. ..IF  ,J=1,...JF. 

C  IT  IS  ASSUMED  THAT  X ( I ) . LT . X ( I  +  1  )  AND  Y ( J  )  . LT . Y ( J+ 1 ) . 

C  HX ( I  )  MUST  BE  PREVIOUSLY  DEFINED  AS  HX ( I ) =X ( 1  +  1 ) -X ( I )  FOR  1  =  1,  .  . ( IF-  1  )  . 
C  SIM.  FOR  HY ( J ) . 

C  IF  KDER=TRUE  THEN 

C  THIS  SUBROUTINE  RETURNS  IN  FI(K.I,J)  THE  INTERPOLATED  VALUES  OF  THE 
C  FUNCTION  AND  ITS  X.Y.XY  DERIVATIVES  AT  PTS  (XI(I).YI(J)), 

C  WHERE  1  =  1 . IFI  ,  J=1  ,  .  .  .  JFI  . 

C  IT  IS  ASSUMED  THAT  X I ( I ) . LT . X I ( I + 1 )  AND  Y I ( J ) . LT . Y I ( J+ 1 ) . 

C  HERE  K=  1  REFERS  TO  THE  FUNCTION, 

C  K=2  REFERS  TO  THE  X-DER  OF  THE  FUNCTION, 

C  K=3  REFERS  TO  THE  Y-DER  OF  THE  FUNCTION, 

C  K=4  REFERS  TO  THE  XY-DER  OF  THE  FUNCTION. 

C  NOTE  THAT  X ( 1 ) . LE . X I ( 1 ) . LE . X I ( I F I  )  . LE . X I ( I F  )  . 

C  SIM.  FOR  Y  AND  YI . 

C  IF  KDER=FALSE  THEN  ONLY  THE  INTERPOLATED  VALUES  OF  THE  FUNCTION  ARE 
C  RETURNED.  (I.E.  CALCULATIONS  ARE  PERFORMED  FOR  K=1  ONLY). 

C  THE  APPROXIMATION  USED  IS  A  BICUBIC  SPLINE  OF  INTERPOLATION  IN 
C  TERMS  OF  THE  PARTIAL  DERIVATIVES  FX ( I , J ) . F Y ( I , J )  AND  FXY(I,J) 

C  WHERE  1  =  1  ...  IF  , J= 1 ,  .  .  . JF . 

C  THESE  DERIVATIVES  MUST  BE  CALCULATED  OUTSIDE  OF  THE  ROUTINE. 

C  E.G.  BY  USING  SUBROUTINE  SPD  IN  A  SUITABLE  MANNER  -  SUBROUTINE  INTO 
C  DOES  THIS  AND  CALLS  THIS  SUBROUTINE.  (INTO  IS  CALLABLE  FROM  INTRPT ) . 

C  WORKING  STORAGE  ARRAYS  ZA , ZB , ZC . ZD  HAVE  DIMENSION  JFI. 

c 

c 


LL  =  2 


DO  15  J= 1 . JF I 
DO  5  L=LL . JF 

IF(YI(J)  .LE.Y(L))  GO  TO  8 
5  CONTINUE 
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L  =  dF 

8  L  1  =  L  —  1 
LL  =  L 

WN= Y I (d)-Y(LI ) 

WD= 1 . 0D0/HY ( L 1 ) 

WE  = WN* WD 

WE  1= 1  . ODO-WE 

WE2  =  WE 1  * WE  1 

WW=2 . ODO* WE 

ZA( d)=WE2*WN 

ZB  ( d ) = WE  1  * WN* WE 

ZC(d)=WE2*( 1 .ODO+WW) 

ZD(J)=WE*WE*(3. ODO-WW ) 

ZAY ( d )  =  - WW*WE  1 +WE  2 
ZBY( d)=-WE*WE+WW*WE 1 
ZCY(J)=-6. ODO*WD*WE 1  *WE 
ZDY ( J ) =-ZCY ( J ) 

15  CONTINUE 
KK  =  2 

DO  500  1  =  1. IF  I 
DO  40  K  =  KK, IF 
I F ( X I ( I  )  .LE.X(K))  GO  TO  45 
40  CONTINUE 
K=IF 

45  K  1  =K- 1 
KK  =  K 

WM=XI ( I ) —  X ( K 1 ) 

WDD= 1 . ODO/HX ( K 1 ) 

WZ=WM*WDD 

WZ1= 1 .ODO-WZ 

WZ2=WZ1*WZ1 

ZZ=2 . ODO*WZ 

ZE=WZ2*WM 

ZF=WZ 1 *WM*WZ 

ZG  =  WZ2  * ( 1  .ODO+ZZ) 

ZL=WZ*WZ*(3.0D0-ZZ) 

I F (  . NOT . KDER  )  GO  TO  46 
ZEX=-ZZ*WZ1+WZ2 
ZFX=-WZ*WZ+ZZ*WZ1 
ZGX=-6 . ODO*WDD*WZ 1  *WZ 
ZLX=-ZGX 

46  LL=2 

DO  400  d=1 ,dFI 
DO  420  L=LL.dF 
IF(YI(d) .LE.Y(L))  GO  TO  450 
420  CONTINUE 
L  =  dF 

450  L  1  =L-  1 
LL  =  L 

Z1=ZE*FXY(K1 ,L1 )-ZF*FXY(K, LI )+ZG*FY(K 1 , L 1 )+ZL*FY(K, L 1 ) 
Z2=ZE*FXY (K 1 . L)-ZF*FXY(K,L)+ZG*FY(K1 ,L)+ZL*FY(K.L) 
Z3=ZE*FX(K1 ,L1 )-ZF*FX(K.L1 )+ZG*F(K1 ,L1 )+ZL*F(K,L1 ) 
Z4=ZE*FX(K1 ,L)-ZF*FX(K.L)^ZG*F(K1 , L ) + ZL * F ( K , L ) 

F I ( 1 . I ,d)=ZA(d)*Z1-ZB(d)*Z2+ZC(d)*Z3+ZD(d)*Z4 
I F ( .NOT  KDER)  GO  TO  400 

Z1X  =  ZEX*FXY(K1 , LI  ) -ZFX * FXY ( K , L 1  )  +  ZGX*FY(K1 ,L1 )  +  ZLX*FY(K , L 1 ) 
Z2X  =  ZEX*FXY(K1 , L  )  -ZFX* FXY ( K . L )  +  ZGX*FY(K1 ,L)  +  ZLX*FY(K.L) 

Z3X  =  ZEX*FX(K1 ,L1 ) -ZFX* FX ( K , L 1  )  +  ZGX*F(K1 ,L1 J  +  ZLX* F ( K . L 1 ) 

Z4X  =  ZEX*FX ( K 1 . L )-ZFX*FX(K, L)  +  ZGX*F(K1 . L )  +  ZLX*F ( K , L )  • 

FI (2, I ,d)=ZA(d)*Z1X-ZB(d)*Z2X+ZC(d)*Z3X+ZD(d)*Z4X 
FI (3, I ,d)=ZAY(d)*Z1-ZBY(d)*Z2+ZCY(d)*Z3+ZDY(d)*Z4 
FI (4. I .d)=ZAY(d)*Z1X-ZBY(d)*Z2X+ZCY(d)*Z3X+ZDY(d)*Z4X 
400  CONTINUE 
500  CONTINUE 
RETURN 
END 
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FUNCTION  FDM(F.H.M) 

FUNCTION:  FDM  -  THIS  FUNCTION  RETURNS  IN  FDM  THE  DERIVATIVE 

OF  F  AT  THE  PT  X(M)  IN  TERMS  OF 
F(M-3),F(M-2),F(M-1),F(M),H(M-3),H(M-2),H(M-1) 
WHERE  H( I )=X( 1+1  )-X(  I  )  FOR  I =M-3 , M-2 , M- 1 . 


AUTHOR:  A.  STANIFORTH 


1973 


REVISION  001:  A.  STANIFORTH  -  C.  THIBEAULT  JAN  79  DOCUMENTATION 
REVISION  002:  T.  GOOS  -  1979-80  ADAPTED  FOR  AMDAHL  AT  U  OF  A 


FUNCTION 


CALL  FDM(F.H.M) 


ARGUMENTS : 

IN  -  F  -  FIELD  OF  VALUES 

-  H  -  MESH-SPACING 

-  M  -  NO.  OF  POINTS 

NOTES:  -  THE  APPROXIMATION  USED  IS  THE  DIFFERENTIATED  FORM  OF 
LAGRANGES  CUBIC  INTERPOLATION  FORMULA  FOR  NON-UNIFORM 
GRIDS . 


IMPLICIT  REAL*8  (A-H.O-Z) 

DIMENSION  F(M) ,H(M) 

H 1 =H( M- 1 ) 

H2=H( M-2 ) 

H3=H( M-3 ) 

X 1 =H 1 +H2 
X2=H2+H3 
X3=X 1 +H3 

FDM=-X1*H1*F(M-3)/(H3*X2*X3)+X3*H1*F(M-2)/( H3*H2*X 1 ) 
FDM=FDM-X3*X1*F(M-1 )/(X2*H2*H1 )+( 1 .0D0/X3+1 .0D0/X1+1 .0D0/H1 )*F(M) 
RETURN 
END 

FUNCTION  FDI(F.H.M) 

IMPLICIT  REAL*8  (A-H.O-Z) 

DIMENSION  F ( M ) , H( M ) 

C 

C  ORIGINALLY  WRITTEN  AT  DRPN ,  DORVAL  P.Q. 

C  REVISION  001:  T.  GOOS  -  1979-80  ADAPTED  FOR  AMDAHL  AT  U  OF  A 

C 

C 

C  LET  F(1),F(2) .  BE  THE  VALUES  OF  A  FUNCTION  F  DEFINED  AT 

C  SUCCESSIVE  PTS  X(1),X(2) .  OF  A  NON  UNIFORM  GRID. 

C  THIS  FUNCTION  ROUTINE  RETURNS  IN  FD 1  THE  DERIVATIVE  OF  F  AT  THE  PT 
C  X(1)  IN  TERMS  OF  F ( 1  )  . F ( 2  )  , F ( 3 ) . F ( 4 ) . H( 1 ) . H( 2 ) , H( 3 ) . 

C  THE  APPROXIMATION  USED  IS  THE  DIFFERENTIATED  FORM  OF  LAGRANGES  CUBIC 
C  INTERPOLATION  FORMULA  FOR  NON  UNIFORM  GRIDS. 

C 

C 

H 1 =H( 1 ) 

H2=H( 2 ) 

H3=H( 3 ) 

X 1 =H 1 +H2 
X2=H2+H3 
X3=X 1 +H3 

FD 1 = - ( 1 . ODO/H 1 + 1 . ODO/X 1 + 1 . 0D0/X3)*F( 1 )+X1*X3*F(2)/(H1*H2*X2) 
FD1=FD1-H1*X3*F(3)/(X1*H2*H3)+H1*X1*F(4)/( X3*X2*H3 ) 

RETURN 

END 

SUBROUTINE  R0SSR3 ( P . A . DELTA , C . D . M ) 


C 

C  ORIGINALLY  WRITTEN  AT  ORPN,  DORVAL  P.O. 

C  REVISION  001:  T.  GOOS  -  1979-80  ADAPTED  FOR  AMDAHL  AT  U  OF  A 
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c 

C  VERSION  3 

C  ANY  TRI-DIAGONAL  MATRIX  SAY  0  IN  EQUATION  QP=D  MAY  BE 
C  NORMALIZED  WITH  1'S  ON  DIAGONAL  AND  C(I),  I = 1 , M- 1  FOR  UPPER  DIAGONAL 
C  AND  A ( I ) , I =2 , M  FOR  LOWER  DIAGONAL. 

C 

C  DELTA  is  A  WORKING  STORAGE  ARRAY  OF  DIMENSION  M 

C  IF  THE  VECTOR  D  IS  NOT  REQUIRED  SUBSEQUENTLY  THEN  THE  CALL  STATEMENT 
C  CALL  R0SSR3(P,A,D,C,D,M) 

C  WILL  USE  THE  ARRAY  D  AS  WORKING  STORAGE  AND  REDUCE  THE  OVERALL  STORAGE 
C  REQUIRED. 

C  IF  THE  ARRAY  C  IS  NOT  REQUIRED  SUBSEQUENTLY  THEN  THE  CALL  STATEMENT 
C  CALL  R0SSR3(C,A,DELTA,C,D,M) 

C  WILL  REDUCE  CORE  STORAGE  REQUIREMENTS. 

C  IF  BOTH  C  AND  D  ARE  NOT  REQUIRED  SUBSEQUENTLY  THEN  THE  CALL  STATEMENT 
C  CALL  R0SSR3(C, A.D.C.D.M) 

C  WILL  FURTHER  REDUCE  THE  CORE  REQUIREMENTS. 

IMPLICIT  REAL*8  (A-H.O-Z) 

DIMENSION  P(M) ,A(M) .DELTA(M) . C(M) ,D(M) 

C ( M ) =0 . ODO 
P( 1 )  =  -C(  1  ) 

DELTA (  1 )=D(  1  ) 

DO  1  1=2, M 
11=1-1 
AI=A(  I  ) 

X= 1 . ODO/ ( 1 . ODO+A I *P ( II)) 

P ( I )  =  -C ( I  )*X 

1  DELTA( I )  =  (D( I  )-AI*DELTA( I  1  )  )*X 
P(M)=DELTA(M) 

DO  2  1=2, M 

II=M-I+1 

111=11+1 

2  P ( II )=P( II )  *P  ( II 1  )+DELTA( 1 1  ) 

RETURN 

END 

SUBROUTINE  SPD ( P . S , M , H , CMU 1 ,C1 , CLMDAM , CM , A , C , D ) 

C 

c 

C  THIS  SUBROUTINE  RETURNS  IN  P  THE  DERIVATIVES  OF  THE  FUNCTION  S  DEFINED 

C  AT  M  CONSECUTIVE  DISCRETE  DATA  POINTS  X(1).X(2) . X(M). 

C  THESE  DATA  POINTS  DEFINE  A  NON-UNIFORM  GRID  H( I ) =X ( I + 1 ) -X ( I )  WHERE  I 
C  RUNS  FROM  1  TO  ( M- 1 ) 

C  IT  USES  SUBROUTINE  R0SSR3 . 

C  THE  APPROXIMATION  USED  IS  A  CUBIC  SPLINE  FIT  TO  ALL  THE  DATA  POINTS. 

C  IT  REQUIRES  BOUNDARY  CONDITIONS  TO  BE  SPECIFIED  OF  THE  FORM 
C  P( 1 )+CMU1 *P( 2 )=C1 

C  CLMDAM*P ( M-1 )+P(M)=CM 

C  FOR  A  NATURAL  SPLINE  (THIS  IS  LEAST  RESTRICTIVE  CONDITION  AND  IMPLIES 
C  ZERO  CURVATURE  AT  THE  END  POINTS),  SDD( 1 )=SDD(M)=0,  AND  WE  HAVE 
C  CMU 1 =CLMDAM=0 . 5 ,  C 1 = 1 . 5* ( S( 2 )-S( 1 ) )/H( 1 ) .  CM- 1 . 5* ( S(M ) -S(M- 1 ) )/H(M- 1 ) 

C 

C  FOR  SPECIFIED  SLOPES  (I.E.  SD( 1 )  AND  SD(M)  GIVEN)  WE  HAVE 
C  CMU 1 =CLMDAM=0 .  C1=SD(1)  CM=SD(M) 

C 

C  FOR  SPECIFIED  SECOND  DERIVATIVES  (I.E.  SDD(1)  AND  SDD(M)  GIVEN)  WE  HAVE 
C  CMU 1 =CLMDAM=0 . 5 ,  C 1 = 1 . 5* ( S ( 2 ) -S ( 1 ) )/H( 1 ) -H( 1 ) *SDD ( 1 ) *0 . 25 
C  CM= 1 ,5*(S(M)-S(M-1 ))/H(M-1 )+H( M-1 )*SDD(M) *0.25 

C 

C  NOTE  THAT  IF  THE  GRID  SIZES  H( I )  ARE  FIXED  THEN  THE  CALCULATION  OF  A 
C  AND  C  MAY  BE  MADE  OUTSIDE  THE  SUBROUTINE  AND  PASSED  VIA  A  COMMON  BLOCK. 
C 

IMPLICIT  REAL*8  (A-H.O-Z) 

DIMENSION  P(M),S(M),A(M),C(M).D(M).H(M) 

Ml =M-  1 
DO  1  1=2. Ml 
11=1-1 


. 
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400 
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408 
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410 

411 

412 

413 
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HI =H( I ) 

HI  1 =H( I  1  ) 

X1=0. 5D0/(HI+HI 1 ) 

A ( I ) =HI *X  1 

1  C( I  ) =H I  1  *X  1 
DO  2  1=2, Ml 
11=1-1 
12=1+1 

HI =H( I  ) 

HI  1 =H( I  1  ) 

SI=S(  I  ) 

X 1 =H( I )/H( I -  1  ) 

2  D( I  )  =  1  . 5D0*( (SI-S( I  1 ) )*X1  +  (S( 1 2 ) —  S I )/X1 )/(HI+HI 1 ) 
C( 1 ) =CMU 1 

A ( M ) =CLMDAM 
D ( 1 ) =C 1 
D(M)=CM 

CALL  R0SSR3(P, A.D.C.D.M) 

RETURN 

END 
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21 
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24 
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c  FILE:  PROD 

C  OBJECT  FILE:  PROD.O 

C  SUBROUTINES: 

C  -  NLINX 

C  -  NLLOOP 

C 

c 

c 

SUBROUTINE  NLINX ( R , U , V , H6 . NI ) 

ADAPTED  FROM  DRPN  DORVAL  P.Q. 

REVISION  001:  T.  GOOS  -  1979-80  ADAPTED  FOR  AMDAHL  AT  U  OF  A 


IMPLICIT  REAL*8  (A-H.O-Z) 

DIMENSION  R(NI),U(NI),V(NI) 

H6( I )=H( I )/6 .  MUST  BE  PRESET  BEFORE  ROUTINE 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


DIMENSION  H6 ( NI ) 

N I M  =  N I -  1 
WK50  =  U ( 1 )*V(  1  ) 

R ( 1 ) =0 . ODO 
DO  300  I = 1 , NIM 
11=1+1 
H6 1 =H6 ( I  ) 

WK4  =  ( U ( I )+U( I  1 ) )*(V( I )+V( I  1 ) )* .50D0 
R( I )=R( I ) + ( WK50+WK4 ) *H6 I 
WK50  =  U( I  1 ) *V( I  1  ) 

300  R ( I  1 )  =  ( WK50+WK4 )  *H6I 
RETURN 
END 

SUBROUTINE  NLLOOP ( R , U , V . NI , NJ ) 

S/R  :  NLLOOP  -  COMPUTE  THE  HORIZONTAL  PRODUCT  R  =  U*V 

AUTHOR  :  A.  STANIFORTH  -  REVISED  DEC  78  TO  REMOVE  BANK  CONFLICTS 
REVISION  001:  T.  GOOS  1979-80  ADAPTED  FOR  AMDAHL  AT  U  OF  A 

ARGUMENTS : 

OUT  -  R  -  RESULTING  PRODUCT 

IN  -  U  -  INPUT  FIELD 

-  V  -  INPUT  FIELD 

-  NI  -  X  DIMENSION 

-  NJ  -  Y  DIMENSION 


IMPLICIT  REAL*8  (A-H.O-Z) 

DIMENSION  R(NI , NJ ) ,U(NI . N J ) . V(NI . N J ) 
COMMON  /  HXMESH  /  HX( 1 ) 

COMMON  /  HYMESH  /  HY(1) 

COMMON  /  WKS1D1  /  HX6(1) 

COMMON  /  WKS1D2  /  U0( 1 ) 

COMMON  /  WKS1D3  /  V0( 1 ) 

COMMON  /  WKS1D6  /  R0( 1 ) 

COMMON  /  WKS1D7  /  WK7(1) 

COMMON  /  WKS1D8  /  WK8(1) 

COMMON  /  WKS1D9  /  WK9( 1 ) 

COMMON  /  WKS110  /  HOLD( 1 ) 

TWELFT  = 1 .ODO/12 .000 
S I XTH= 1 . ODO/ 6 . ODO 
NIM  =  NI -  1 
NJM=NJ- 1 


C 
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115 
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C  COMPUTE  H6( I ) =H( I )/6 . 

C  AND  SET  R0  TO  0. 

C 

DO  50  1=1 , NIM 
U0( I ) =U ( I ,  1  ) 

V0( I )=V( I ,  1  ) 

R0( I ) =0 . 0D0 
50  HX6 ( I ) =HX ( I )/6 .0D0 
R0(NI ) =0 . 0D0 
U0(NI )=U(NI ,  1  ) 

V0( NI ) =  V(NI .  1  ) 

J=1 

COMPUTE  ROW  PRODUCT  U*V  ON  FIRST  ROW 

CALL  NL I NX ( WK7 , UO , VO , HX6 , N I ) 

LOOP  OVER  ROWS 

DO  100  U= 1 , NUM 
d 1 =d+ 1 

HYJ1=HY(U)*SIXTH 
HYd2=HY(d)*TWELFT 
DO  75  1=1, NI 

ADD  FIRST  CONTRIBUTION  TO  d  TH  ROW 

HOLD ( I )=HYd1*WK7( I )  +  R0( I ) 

COMPUTE  2 . *U  AND  2 . *V  ON  COLLOCATION  ROW 

WK8 ( I ) =U0( I )+U( I , dl ) 

75  WK9 ( I ) =V0( I ) + V ( I , d 1 ) 

COMPUTE  ROW  PRODUCT  HY(d)*U*V/3.  ON  COLLOCATION  ROW 

CALL  NLINX ( WK7 , WK8 , WK9 , HX6 , NI ) 

DO  90  1=1 ,NI 
WK8( I )=HYd2*WK7( I ) 

ADD  OTHER  CONTRIBUTION  TO  d  TH  ROW 

R0( I ) =HOLD ( I )+WK8( I ) 

MOVE  RESULT  RO  INTO  R(1,d) 

R ( I , d ) =R0( I ) 

ADD  FIRST  CONTRIBUTION  TO  (d+1)ST  ROW 
90  HOLD ( I ) = WK8 ( I ) 

C  COMPUTE  ROW  PRODUCT  U*V  ON  (d+1)ST  ROW 

CALL  NL INX ( WK7 , U( 1,d1).V(1,d1) ,HX6,NI ) 

ADD  OTHER  CONTRIBUTION  TO  (d+1)ST  LEVEL 

DO  120  1=1. NI 

R0( I ) =HYd 1 *WK7 ( I ) +HOLD ( I ) 

MOVE  U( I , d+ 1 ) , V( I , d+ 1 )  INTO  UO.VO 

U0( I ) *U( I , d 1  ) 

120  V0( I )=V( I , dl  ) 

100  CONTINUE 


. 
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130 

C 

131 

C 

MOVE  RESULT  RO  INTO 

132 

C 

133 

DO  150  1=1, NI 

134 

150  R ( I , NJ  )  =R0( I ) 

135 

RETURN 

136 

END 

END  OF  FILE 


LAST 


ROW  OF 


R 
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c 

c 

C  FILE:  PRO J 
C  OBJECT  FILE:  PROJ.O 
C  SUBROUTINES: 

C  -  PRO JN 

C  -  SETABC 

C  -  SETTRI 

C  -  SOLTRI 

C  -  PSOLVE 

C 

c 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  PRO JN( R , RHS , FOURTH , NI , NJ , ALONGX , ALONGY ) 

S/R:  PRO JN  -  THE  FINITE-ELEMENT  PROJECTION  OPERATOR  (ALONG  ANY 

OR  ALL  DIRECTIONS.  AS  DECIDED  BY  THE  LOGICAL  VARIABLES 
ALONGX . ALONGY ) 

R  =  PROJECTION  (RHS) 


c 

c 

AUTHOR : 

A  . 

STANIFORTH  -  SPRING 

1977 

c 

REVISION 

001 

:  A  . 

STANIFORTH  -  JAN  1979 

VECTORIZED 

c 

REVISION 

002 

:  A  . 

STANIFORTH  -  C 

THIBEAULT 

FEB  79 

DOCUMENTATION 

c 

REVISION 

003 

:  T. 

GOOS  -  1979-80 

ADAPTED 

FOR 

AMDAHL 

AT  U  OF  A 

CALL:  CALL  PRO JN( R , RHS . FOURTH . NI , NJ , ALONGX . ALONGY ) 


ARGUMENTS : 
OUT 
IN 


NOTES: 


-  R  -  RESULT  OF  PROJECTION 

-  RHS  -  RIGHT-HAND-SIDE  TO  BE  PROJECTED 

-  FOURTH  -  LOGICAL  SWITCH  -  TRUE  =  FOURTH  ORDER  PROJECTION 

IN  HORIZONTAL 

-  FALSE  =  SECOND  ORDER  PROJECTION 
IN  HORIZONTAL 

-  NI  -  X-DIMENSION 

-  NJ  -  Y-DIMENSION 

-  ALONGX  -  IF  .TRUE.  PROJECT  IN  X  DIRECTION 

-  ALONGY  -  IF  .TRUE.  PROJECT  IN  Y  DIRECTION 


-  AT  PRESENT  THE  CODE  HANDLES  SECOND  AND  FOURTH  ORDER  IN 
BOTH  DIMENSIONS. 

-  IF  ALONGX  AND  ALONGY  ARE  ALL  .FALSE.,  A  COPY  OF  RHS  IS 
RETURNED  IN  R. 


IMPLICIT  REAL *8  (A-H.O-Z) 
DIMENSION  R ( NI , NJ ) ,  RHS(NI.NJ) 
COMMON  /  HXMESH  /  HX(1) 

COMMON  /  HYMESH  /  HY(1) 

COMMON  /  WKS1D5  /  A (  1  ) 

COMMON  /  WKS1D6  /  B( 1  ) 

COMMON  /  WKS1D7  /  C(1) 

LOGICAL  ALONGX . ALONGY 
LOGICAL  FOURTH 


C 

c 

C  SET  UP  WEIGHTS  FOR  PROJECTION  OPERATOR 
C  WT  =  2.  CORRESPONDS  TO  USUAL  PROJECTION.  WHILST 

C  WT  =  5.  CORRESPONDS  TO  PROJECTION  USED  IN  THE  FOURTH-ORDER  SOLUTION 
C  OF  ELLIPTIC  BOUNDARY-VALUE  PROBLEMS. 
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112 

113 

1  14 

1  15 

1  16 

117 

1  18 

1  19 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 


185 


c 


c 

c 

c 


c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


WTX=2 .0D0 
WTY  =  2 . ODO 

IF(FOURTH)  WTX=5.0D0 
I F ( FOURTH )  WT Y=5 . ODO 

CODE  FOR  PROJECTION  ALONG  X  DIRECTION 

I F ( . NOT . ALONGX )  GO  TO  200 
CALL  SETABC(A,B,C, HX , WTX , NI ) 

NIM=NI- 1 
DO  130  J= 1 ,  Nd 
DO  150  1=1, NIM 
11=1+1 
12=1+2 

R(I1,J)=A(I1 ) *RHS( I , J)+B( I  1 ) *RHS ( I  1 , J) 
IF(I.LT.NIM)  R(I1,J)=R(I1,J)+C(I1 )*RHS( 12 . J) 
150  CONTINUE 

R( 1 , d)=C( 1 ) *RHS ( 2 , J ) +B ( 1 )*RHS( 1 , d ) 

130  CONTINUE 

DO  135  d=1 ,Nd 
DO  135  1=1, NI 
RHS ( I ,J)=R(I'J) 

135  CONTINUE 

200  CONTINUE 


CODE  FOR  PROJECTION  ALONG  Y  DIRECTION 

I F ( . NOT . ALONGY )  RETURN 
CALL  SETABC(A,B,C,HY,WTY, NJ ) 

NdM=NJ- 1 
DO  230  1=1, NI 
DO  250  d= 1 , NJM 
J1=d+1 
J2= J+2 

R(I,J1)=A(J1  )*RHS( I . J)+B(J1 )*RHS( I ,J1 ) 

IF( J.LT .NJM)  R(I,J1)=R( I , J 1 )+C ( J 1 ) *RHS ( I , J2 ) 

250  CONTINUE 

R ( I ,  1  )  =C (  1  )  *RHS( I , 2 ) +B ( 1 ) *RHS ( I ,  1 ) 

230  CONTINUE 
RETURN 
END 

SUBROUTINE  SETABC ( A , B , C , H . WT , N ) 

S/R:  SETABC  -  SETS  THE  TRI-DIAGONAL  ELEMENTS  OF  THE  MATRIX 
ASSOCIATED  WITH  THE  PROJECTION  OPERATOR. 


AUTHOR:  A.  STANIFORTH  -  SPRING  1977 


REVISION  001:  A.  STANIFORTH  -  C.  THIBEAULT  FEB  79  DOCUMENTATION 
REVISION  002:  T.  GOOS  -  1979-80  ADAPTED  FOR  AMDAHL  AT  U  OF  A 


CALL:  CALL  SETABC ( A , B . C , H , WT , N ) 


ARGUMENTS : 

OUT  -  A  -  LOWER-DIAGONAL  ELEMENTS 

-  B  -  DIAGONAL  ELEMENTS 

-  C  -  UPPER-DIAGONAL  ELEMENTS 

IN  -  H  -  MESH-SPACING 

-  WT  -  USUALLY  WT=2.,  BUT  WT=5 .  WHEN  SOLVING  EBV  PROBLEMS 

TO  FOURTH  ORDER 

-  N  -  NO.  OF  POINTS 


IMPLICIT  REAL+8  (A-H.O-Z) 
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160 
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165 

166 
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168 

169 

170 

171 
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DIMENSION  A(N),B(N),C(N) 
DIMENSION  H(N) 

NM  =  N- 1 


C 1 =0 . 5D0/ ( 1  . ODO+WT) 

C2=WT*C 1 
A ( 1 ) =0 . ODO 
B ( 1 )=H(  1 ) *C2 
C( 1  )=H( 1 )*C1 
DO  10  1=2, NM 
HI 1=H( 1-1 ) 

HI =H(  I  ) 

A ( I ) =HI 1 *C 1 
B ( I ) = ( HI 1+HI ) *C2 
C( I )=HI*C1 
10  CONTINUE 

A ( N ) =H( NM  )  *C  1 

B(N)=H(NM)*C2 

C ( N ) =0 . ODO 

RETURN 

END 

SUBROUTINE  SETTR I ( BIGE , B I GC . B I GA . A , B , C , N ) 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


S/R:  SETTR I  -  SETTR I  DOES  THE  PREPROCESSING  PASS  TO  SOLVE  A 
TRI-DIAGONAL  SYSTEM  OF  LINEAR  EQUATIONS. 

AUTHOR:  D.  ROBERTSON  -  MARCH  1977 

REVISION  001:  A.  STANIFORTH  -  C.  THIBEAULT  FEB  79  DOCUMENTATION 
REVISION  002:  T.  GOOS  -  1979-80  ADAPTED  FOR  AMDAHL  AT  U  OF  A 

CALL:  CALL  SETTRI ( BIGE^  B IGC , BIGA , A , B , C , N ) 

ALGORITHM: 

-  SOLVES  M*P=D 

WHERE  M  IN  THE  N  BY  N  TRI-DIAGONAL  MATRIX 


★  *  *  * 

*B(1),C(1),0,0 . 

*A(2),B(2),C(2),0,0 - 


*  ...  0,A(I),B(I),C(I),0. 

* 


4c 

4c  4c  4c  4t 


♦  *  *  * 
4c 
* 
4c 
4c 
4t 
4c 
4c 
4c 

. . .0,0. A(N) ,B(N)* 
*  *  *  * 


-  A ( 1 )  AND  C ( N )  ARE  NOT  DEFINED  BY  THE  MATRIX,  BUT  ARRAYS  A,C 
SHOULD  BE  OF  FULL  SIZE,  N.  FOR  CONVENIENCE  THIS  ROUTINE 
ZEROES  C ( N ) .  THE  METHOD  IS  GAUSSIAN  ELIMINATION  WITHOUT 
PIVOTING,  FOLLOWED  BY  BACK  SUBSTITUTION. 


ARGUMENTS 


c 

OUT 

-  BIGE 

c 

-  B I  GC 

c 

-  BIGA 

c 

IN 

-  A 

c 

-  B 

c 

IN 

-  C 

c 

-  N 

c 

c 

NOTES: 

-  SETTR I 

C 

C 


PROCESSED  ARRAY  TO  BE  USED  IN  S/R  SOLTRI 

PROCESSED  ARRAY  TO  BE  USED  IN  S/R  SOLTRI 

PROCESSED  ARRAY  TO  BE  USED  IN  S/R  SOLTRI 

LOWER-DIAGONAL  ELEMENTS  OF  TRI-DIAGONAL  MATRIX 
DIAGONAL  ELEMENTS  OF  TRI-DIAGONAL  MATRIX 
UPPER-DIAGONAL  ELEMENTS  OF  TRI-DIAGONAL  MATRIX 
NO.  OF  POINTS 


AFTER  THAT  A  CALL  TO  SOLTRI  WILL  COMPLETE  THE  SOLUTION  FOR 
A  GIVEN  RHS  D.  THIS  METHOD  IS  EFFICIENT  WHEN  SOLVING  WITH 
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C  SEVERAL  DIFFERENT  RHS  BUT  THE  SAME  MATRIX  M,  AS  ALL 

C  DIVISIONS  ARE  DONE  ONLY  ONCE,  AND  SOLTRI  PERFORMS  N 

C  VECTORIZABLE  MULTIPLICATIONS  FOLLOWED  BY  TWO  SIMILAR 

C  RECURSIVELY  DEFINED,  NON- VECTOR  I  ZABLE  ,  LOOPS,  EACH  HAVING 

C  N  MULTIPLIES  AND  N  SUBTRACTIONS,  PER  RHS.  EXAMINATION  OF 

C  SOLTRI  SHOWS  BIGA(1),  BIGC(N)  ARE  NOT  USED. 

C 

c 

c 

IMPLICIT  REAL*8  (A-H.O-Z) 

DIMENSION  B I GE ( N ) , BI GC ( N ) , BI GA (N) ,A(N) ,B(N) ,C(N) 

B I GE ( 1 )= 1 . ODO/B( 1 ) 

B I  GC  (  1  )=C(  1  ) *B I GE (  1  ) 

C ( N ) =0 . ODO 
DO  50  1=2. N 
11=1-1 
A  I  =  A  (  I  ) 

BIGE(I)=1. 0/ (B ( I ) -A  I *BIGC ( I  1 ) ) 

B  I  GC  (  I  )  =B  I  GE  (  I  )*C(  I  ) 

B I GA ( I )  =  A I *B I GE ( I ) 

50  CONTINUE 
RETURN 
END 

SUBROUTINE  SOLTRI ( N , P , D , B I GD . B I GE . BI GC , BI GA ) 

S/R:  SOLTRI  -  USED  AFTER  SETTRI  TO  COMPLETE  THE  SOLUTION  TO  THE 

TRI-DIAGONAL  MATRIX  PROBLEM.  SEE  SETTRI  FOR  DETAILS. 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


IMPLICIT  REAL*8  (A-H.O-Z) 

DIMENSION  P(N) ,D(N) ,BI GD (N) ,BIGE(N) , BIGC (N) ,BIGA(N) 

DO  20  1=1 ,N 
B I GD ( I )=D( I )*BIGE( I ) 

20  CONTINUE 
DO  50  I =2 , N 
11=1-1 

BIGD( I )=BIGD( I )-BIGA( I )*BIGD( I  1 ) 

50  CONTINUE 

P  ( N  )  =B  I  GD  ( N ) 

DO  100  I =2  ,  N 
I  RE V  =  N- I + 1 
I  REV  1 = I  RE V+ 1 

P( IREV)=BIGD( IREV)-BIGC( IREV)*P( IREV1 ) 

100  CONTINUE 
RETURN 
END 

SUBROUTINE  PSOLVE ( R , RHS , NI , NJ . ALONGX , ALONGY , FOURTH ) 

S/R:  PSOLVE  :  SOLUTION  OF  THE  MATRIX  PROBLEMS  ASSOCIATED  WITH  THE 
PROJECTION  OPERATOR  (ALONG  ANY  OR  ALL  DIRECTIONS,  AS 
DECIDED  BY  THE  LOGICAL  VARIABLES  ALONGX , ALONGY ) 

R  =  INVERSE  PROJECTION  (  RHS  ) 


AUTHOR:  A.  STANIFORTH  -  REVISED  DEC  78  TO  EXECUTE  FASTER 
REVISION  001:  T.  GOOS  -  1979-80  ADAPTED  FOR  AMDAHL  AT  U  OF  A 


ARGUMENTS : 

OUT 

R 

IN 

RHS 

- 

NI 

- 

NJ 

- 

ALONGX 

- 

ALONGY 

RESULT 

RIGHT-HAND  SIDE 
X  DIMENSION 
Y  DIMENSION 

IF  .TRUE.  ,  INVERSE  PROJECT  IN  X  DIRECTION 
IF  .TRUE.  .  INVERSE  PROJECT  IN  Y  DIRECTION 
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262 

C 

263 

IMPLICIT  REAL*8  (A-H.O-Z) 

264 

DIMENSION  R(NI ,NJ) ,RHS(NI ,NJ) 

265 

COMMON  /  HXMESH  /  HX(1) 

266 

COMMON  /  HYMESH  /  HY ( 1 ) 

267 

COMMON  /  WKS1D1  /  A ( 1 ) 

268 

COMMON  /  WKS 1D3  /  B( 1 ) 

269 

COMMON  /  WKS1D4  /  C( 1 ) 

270 

COMMON  /  WKS1D5  /  CF  1(1) 

271 

COMMON  /  WKS1D6  /  CF2(1) 

272 

COMMON  /  WKS1D7  /  CF3( 1 ) 

273 

COMMON  /  WKS1D9  /  TEMP2(l) 

274 

LOGICAL  ALONGX.ALONGY, FOURTH 

275 

C 

276 

C 

SET  UP  WTS  ASSOCIATED  WITH  PROJN  OPERATOR. 

277 

C 

WT  - 

■2.  CORRESPONDS  TO  NORMAL  USAGE. 

278 

C 

279 

WTX=2 .ODO 

280 

WTY  =  2 . ODO 

281 

I F ( FOURTH )  WTX=5 . ODO 

282 

I F ( FOURTH )  WTY  =  5 . ODO 

283 

C 

284 

C 

CODE  FOR  SOLVING  ALONG  X  DIRECTION 

285 

C 

286 

I F ( . NOT . ALONGX )  GO  TO  200 

287 

CALL  SETABC(A,B,C, HX , WTX , NI ) 

288 

CALL  SETTRI ( CF 1 , CF2 , CF3 , A , B , C . NI ) 

289 

DO  130  J=1 ,NJ 

290 

CALL  SOLTRI (NI ,R( 1 , J) ,RHS( 1 , J ) , TEMP2 , CF 

291 

130 

CONTINUE 

292 

GO  TO  250 

293 

200 

CONTINUE 

294 

DO  450  J=1 ,NJ 

295 

DO  450  1= 1 .NI 

296 

450 

R ( I , J  )  =RHS ( I . J) 

297 

C 

298 

C 

CODE  FOR  SOLVING  ALONG  Y  DIRECTION 

299 

C 

300 

250 

IF( .NOT.ALONGY)  RETURN 

301 

CALL  SETABC(A,B,C, HY , WTY , NJ ) 

302 

CALL  SETTRI (CF1 . CF2 . CF3 . A . B . C , NJ ) 

303 

DO  460  1*1, NI 

304 

R( I .  1  )=CF  1  ( 1  )*R( I ,  1  ) 

305 

460 

CONTINUE 

306 

DO  215  J=2 , NJ 

307 

J1=J- 1 

308 

CF3J=CF3( J ) 

309 

CF 1 J=CF 1 ( J) 

310 

DO  215  1=1 ,NI 

311 

R (  I  ,J)=-CF3J*R( I ,J1 )+CF1J*R( I . J) 

312 

215 

CONTINUE 

313 

DO  225  J=2 , NJ 

314 

JREV=NJ-J+1 

315 

JREV1  =  JREV-t- 1 

316 

CF2J=CF2( JREV) 

317 

DO  225  1=1 .NI 

318 

R (  I  , JREV)=-CF2J*R( I .JREV 1 )  +  R( I . JREV) 

319 

225 

CONTINUE 

320 

RETURN 

321 

END 

END  OF  FILE 
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SUBROUTINE  OUTPUT ( 1 1 , XCI , TAU , OMEG, XI , Y I , X , Y , NI , NJ .NIU.NJU, 
1  FX.FY.FXY.D, WORK , NIP , NJP , OUT , DT ) 

ROUTINE  TO  PRODUCE  MAPS  OF  FORECAST  FIELDS. 

IMPLICIT  REAL*8  (A-H.O-Z) 

DIMENSION  XCI (NI , N J ) , TAU(NI , N J ) , OMEG ( NI . NJ ) 

DIMENSION  XI (NIP) , YI(NJP) ,X(NIU) ,Y(NJU) 

DIMENSION  D(4, NIU.NJU) 

DIMENSION  FX(NIP . NJP) , FY(NIP , NJP ) , FXY(NIP , NJP ) , WORK(NJU, 8) 
DIMENSION  OUT (NIP, NJP ) 

DIMENSION  E(281 .45) 

COMMON  /  HXMES1  /  HX 1 ( 1 ) 

COMMON  /  HYMES1  /  HY 1 ( 1 ) 

COMMON  /  WKS1X1  /  WK  1  (  1  ) 

COMMON  /  WKS1X2  /  WK2(1) 

COMMON  /  WKS1X3  /  WK3(1) 

COMMON  /  WKS1X4  /  WK4(1) 

COMMON  /  WKS1X5  /  WK5( 1 ) 

COMMON  /  CONSTA  /  C4 , C5 
LOGICAL  KDER 


USES  ROUTINE  INTRPT  TO  PRODUCE  VALUES  OF  FIELDS  ON  UNIFORM  GRID 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 


KDER  = . FALSE . 

KL  =  2 

I T IME  =DFLOAT ( 1 1  -  1 )*DT/ . 370D0+ . 50D0 

CALL  INTRPT(D, NIU.NJU. XCI . NI P , NJP , X . Y , X I . YI ,FX, 

1  FY.FXY.HX1 ,HY1 .KL.WK1 . WK2 . WK3 . WK4 . WK5 , WORK , KDER ) 

DO  100  J=1 , NJU 
DO  100  1=1 , NIU 
100  E ( I . J ) =C4 *D ( 1 . I . J) 

CALL  FPLOT(E,NIU, NJU , 1 ) 

CALL  INTRPT ( D. NIU, NJU. TAU. NIP. NJP. X.Y. XI ,YI . FX , 

1  FY.FXY.HX1 ,HY1 ,KL, WK 1 , WK2 . WK3 . WK4 , WK5 . WORK , KDER ) 

DO  300  J=1 .NJU 
DO  300  1=1 .NIU 
300  E ( I , J  ) =C4  *D (  1  . I . J) 

CALL  FPLOT(E,NIU, NJU , 1 ) 

CALL  I NTRPT(D. NIU, NJU. OMEG, NIP, NJP. X.Y. XI . YI ,FX, 

1  FY.FXY.HX1 ,HY1 .KL.WK1 , WK2 , WK3 . WK4 . WK5 . WORK . KDER ) 

DO  475  J=1 , NJU 
DO  475  1=1 , NI U 
475  E ( I , J ) =C5*D( 1 , I . J) 

CALL  FPLOT(E.NIU.NJU.O) 

RETURN 

END 

SUBROUTINE  MSHF LT ( F I  ELD . WKX . WKY . CON , NI .NJ.IPOW) 

S/R:  MSHFLT  -  REDUCES  AMPLITUDE  OF  FIELD  (IN-PLACE)  FOR  REGIONS  OF 

POOR  HORIZONTAL  RESOLUTION 

FIELD(I.J)  =  FAC*(FIELD(I,J ) -CON )+CON  WHERE 
FAC  =  (HMIN( I , J)/H( I . J) )**IPOW, 

H( I , J  )  =  SORT ( HX ( I ) *HX ( I  )  +  HY ( J ) *HY ( J ) ) , 

HMIN( I , J ) =  SMALLEST ( H( I , J ) ) . 

AUTHOR:  ROGER  DALEY  -  SUMMER  1977 

REVISION  001:  A.  STANIFORTH  -  C.  THIBEAULT  JAN  79  DOCUMENTATION 
REVISION  002:  T.  GOOS  -  1979-80  ADAPTED  FOR  AMDAHL  AT  U  OF  A . 

CALL:  CALL  MSHFLT ( F I  ELD . WKX . WKY . CON . NI , NJ , I POW ) 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


ARGUMENST : 

IN-OUT  -  FIELD  - 
IN  -  XI 

-  Y I 

-  WKX 

-  WKY 

-  CON  x- 

-  NI 

-  NU 

-  IPOW 


FIELD  USED  FOR  IN-PLACE  AMPLITUDE  REDUCTION 

-  X-SPECIFICATION  OF  GRID 

-  Y-SPECIF ICATION  OF  GRID 

-  WORK ( NI ) 

-  WORK(NJ) 

x-  PARAMETER  CONTROLLING  MEAN  OF  FIELD 
-  X-DIMENSION 


-  Y-DIMENSION 

-  PARAMETER  OF 


AMPLITUDE  REDUCTION 


IMPLICIT  RE AL  *8  (A-H.O-Z) 

DIMENSION  FIELD(NI.NJ) 

DIMENSION  WKX (  NI  )  , WKY ( NU  ) 

FMI N= 1 . D 1 2 
DO  50  U  = 1 ,NU 
DO  50  1=1 , NI 

SX  =  DSQRT(WKX( I )*WKX( I )  +  WKY ( U ) *WKY ( J ) ) 
IF(SX.LE.FMIN)  FMIN=SX 
50  CONTINUE 

DO  100  J=1 ,NJ 
DO  100  1=1, NI 

SX  =  D SORT ( WKX ( I ) * WKX ( I )  +  WKY ( J ) *WKY ( J ) ) 

FAC  =  ( FMIN/SX )**IPOW 
100  F I ELD( I , U)=FAC*(FIELD(I ,U)-CON)+CON 
RETURN 
END 

SUBROUTINE  RE L ( PHI G , PG , NI . NJ , ALX . RELF , XTOL ) 
IMPLICIT  REAL  *8(A-H,0-Z) 

PERFORMS  RELAXATION  SOLUTION  FOR  POISSONS  EQUATION 


DIMENSION  PG( NI , NJ ) ,PHIG(NI , NU ) 


COMMON 
COMMON 
COMMON 
COMMON 
F IVE=5 
NIM=NI 
NUM=NU 
NI 2=NI 
NJ2=NJ 


/  HXMESH 
/  RATIO  1 
/  RATI  I  1 
/  RAT  104 
,  ODO 
- 1 
- 1 
-2 
-2 


/  HX (  1  ) 

/  RAT  1(63,27) 

/  RAT  I  1 (63 , 27  ) 
/  RAT4 ( 63 , 27  ) 


NU4=NJ-4 
DNI 3=2 . ODO* ALX 
DNI 3=1 . ODO/DNI 3 
RELFP= 1 .ODO-RELF 
DO  1000  K= 1 , 140 
PHI =0.000 
SUM=0 . O 
DO  20  1=2, NIM 
11=1-1 

H  =  HX ( I ) +HX ( I  1 ) 

20  SUM=SUM+H*PHIG( 1,2) 

H=HX ( 1 ) +HX (NIM) 

SUM=SUM+PHIG( 1 ,2)*H 
SUM=  SUM*DNI 3 
DO  25  1=1, NI 
25  PHIG( I .  1  )  =SUM 
DO  300  J=2 . NUM 
U 1 = J-  1 

SUP= ( PHIG( 1 ,U1 )+PHIG(NI ,U1 ) )/2.0D0 
PHI G( 1 , J1 )=SUP 
PHIG( NI ,U1 )=SUP 
U2=U+1 

DO  300  1=2, NIM 


. 


130 

13  1 

132 

133 

134 

135 

136 

137 

138 

139 

140 

14  1 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 
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168 
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172 
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178 
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Z=RELFP*PHIG( I  ,d) 

11=1-1 

12=1+1 

RA 1  1 =RAT 1 ( I  1 , J 1  ) 

RAO  1 =RAT 1 ( I , J 1 ) 

RA 10  =  RAT 1 ( I  1  , J) 

RA=RAT 1 ( I ,J) 

RA I  1 1 =RAT I  1 ( I  1 , J 1  ) 

RA 10 1 =R AT  I  1 ( I , d 1 ) 

RA I 10  =  RAT I  1 ( I  1 , d ) 

RAI =RATI 1 ( I , d ) 

SUM  = ( RA 1 1+RAI 1 1 )*PHIG( I  1 . d 1 ) 

SUM=SUM+( RA01+RAI01 )*PHIG(I2.d1 ) 

SUM  =  SUM+( RA 10+RAI 10)*PHIG( I  1 ,d2) 

SUM=  5UM+ ( R A  +  R A I )*PHIG( I2,d2) 

SUM  =  SUM+(  FIVE*  (RAI +RA<I 10 ) -RA -RA 10 ) *PHI G( I , d2 ) 
SUM=SUM+( FIVE* (RAI 1 1+RAI01 )-RA1 1-RA01 )*PHIG(I .dl ) 
SUM=SUM+( FIVE* (RA 10+RAI 1 )-RAI 10-RAI 1 1 ) *PHIG( I  1 , d ) 
SUM=SUM+(FIVE*(RA+RA01 )-RAI-RAI01 )*PHIG( 12 ,d) 
SUM=SUM/F IVE 

SUM  = ( SUM+PG( I , d) )*RAT4( I , d) 

C  WRITE ( 7 , 806  )  SUM , RAT4 ( I , d ) , PG( I , d ) , PHI G( I , d ) 

PHI 0=PHIG( I , d ) 

PHIG( I  ,  d ) =Z+RELF*SUM 
I F ( I . LT . 18. OR, I. GT. 46)  GO  TO  805 
'  I F ( d . LE . 5  )  GO  TO  805 
I F ( d . GE . Nd4 )  GO  TO  805 

IF(PHI0.GT.-1 .0D-50.AND.PHI0.LT. 1 .0D-50)  GO  TO  805 
PHIO=DABS( ( PHIG( I ,d)-PHIO)/PHIO) 

PHI =DMAX 1(PHI0,PHI) 

805  CONTINUE 

806  F0RMAT(4(2X,E12.6)) 

300  CONTINUE 

SUM=0 . ODO 
DO  40  1=2, NIM 
11=1-1 

H  =  HX ( I )+HX ( I  1 ) 

40  SUM=SUM+H* PHI G( I ,NdM) 

H=HX ( 1 )+HX ( NIM ) 

SUM=SUM+PHIG( 1 . NdM ) *H 
SUM=SUM*DNI 3 
DO  45  1=1 ,NI 
45  PHI G ( I , Nd ) =SUM 

I F ( K . EO . 1 )  GO  TO  1000 
I F ( PHI . LT . XTOL )  GO  TO  1505 
1000  CONTINUE 
1505  CONTINUE 

WRITE ( 7 , 1049)  K.PHI 
1049  FORMAT ( '  K  =  I5.4X.E12.6) 

RETURN 

END 

SUBROUTINE  TRANS ( OUT , XC I ,NI , Nd.NIP.NdP) 

IMPLICIT  REAL*8  (A-H.O-Z) 

DIMENSION  OUT (NIP, NdP ) ,XCI(NI , Nd ) 

NI M  =  NI - 1 
NdM=Nd- 1 
DO  50  d=2 , NdM 
d1=d-1 

DO  50  1=2. NIM 
11=1-1 

50  OUT (I1,d1)=XCI(I,d) 

RETURN 

END 

SUBROUTINE  RELHEL ( PHIG . PG , NI . Nd , A LX , ALAM , RELF . XTOL ) 
IMPLICIT  REAL  *8(A-H.0-Z) 
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PERFORMS  RELAXATION  SOLUTION  FOR  HELMHOLZ  PROBLEM. 

DIMENSION  PG(NI ,NU)  ,PHIG(NI ,NU) 

COMMON  /  HXMESH  /  HX ( 1 ) 

COMMON  /  RAT  101  /  RAT1(63,27) 

COMMON  /  RATI  I  1  /  RATI  1(63,27) 

COMMON  /  RAT  1 04  /  RAT4(63,27) 

COMMON  /  RATIOO  /  RAT0(63,27) 

COMMON  /  RAT  102  /  RAT2(63,27) 

COMMON  /  RAT  1 03  /  RAT3(63,27) 

COMMON  /  RATI05  /  RAT5(63,27) 

FIVE=5 .000 
ALAMP=ALAM/ 60 . DO 
NIM  =  NI - 1 
NdM=NU- 1 
NI2=NI-2 
NU2=NJ-2 
NU4=NJ-4 
DNI 3=2 . ODO* ALX 
DNI 3= 1 , ODO/DNI 3 
RELFP=  1  .ODO-RELF 
DO  1000  K= 1 . 140 
PHI =0. ODO 
SUM=0 . 0 
DO  20  1=2, NIM 
11=1-1 

H  =  HX ( I )+HX( I  1 ) 

20  SUM=SUM+H*PHIG( 1,2) 

H=HX ( 1 ) +HX (NIM) 

SUM=SUM+PHIG( 1 ,2)*H 
SUM=SUM*DNI 3 
DO  25  1=1 ,NI 
25  PHI G( I . 1 ) =SUM 
DO  300  d=2 , NdM 
d1=d- 1 

SUP= ( PHIG( 1 ,d1 )+PHIG(NI ,d1 ) )/2.0D0 
PHIG( 1 ,d1 )=SUP 
PHI G ( NI ,d1 )=SUP 
d2=d+1 

DO  300  1=2, NIM 
828  CONTINUE 

Z=RELFP*PHIG( I , d) 

11=1-1 

12=1+1 

PI  1 =PHIG( I  1 , d 1 ) 

P2 1 =PHI G( 1 2 , d 1 ) 

P 1 2  =  PHIG( I  1 , d2 ) 

P22  =  PHIG( I  2 , d2 ) 

P02=PHIG( I ,d2) 

P01 =PHIG( I , d 1 ) 

P 10  =  PHIG( I  1 . d ) 

P20=PHIG( 12 . d) 

RA 1 1 =RAT 1 ( I  1 , d 1  ) 

RA0 1 =RAT 1 ( I , d 1 ) 

RA 1 0  =  RAT 1 ( I  1 . d ) 

RA=RAT 1 ( I ,d) 

RA I  1  1  =RAT I  1  ( I  1  ,  d  1  ) 

RAI01=RATI1(I ,d1 ) 

RA I 10  =  RAT I  1 ( I  1 . d) 

RA I =RAT I  1 ( I , d ) 

SUM= ( RA 1 1+RAI 1  1  )*P1  1 
SUM=SUM+(RA01+RAI01 )*P21 
SUM=SUM+(RA 10+RAI 10)*P12 
SUM=SUM+ ( RA+RA I )*P22 

SUM=SUM+(FIVE*(RAI+RAI 10 ) -RA-RA 10) *P02 
SUM  =  SUM+(FIVE*(RAI 1 1+RAI01 ) -RA 1 1 -RA0 1 ) *P0 1 
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SUM=SUM+ (FIVE*(RA 10+RA 1 1 )-RAI 10-RAI 1 1 )*P10 
SUM=SUM+ (FIVE*(RA+RA01 )-RAI-RAI01 )*P20 
SUM=SUM/5 . 0D0 

SUM5=RAT2 ( I , U)*P02  +RAT3( I , J)*P20 

SUM5  =  SUM5  +  RAT3( I  1 ,d)*P10  +  RAT2 ( I , d 1 ) *P0 1 

SUM5=SUM5*FIVE+RAT0( I,d)*P22+RATO(I1,d)*P12 

SUM5=SUM5+RAT0( I1.d1)*P11+RAT0(I,d1)*P21 

SUM5=SUM5*ALAMP 

SUM=SUM-SUM5 

210  SUM= ( SUM+PG( I , J) )*RAT5( I ,J) 

WRITE (7, 600)  SUM,SUM5,RAT5( I , J ) , PG( I , J ) , PHIG( I , J ) 
PHI0=PHIG( I . J) 

PHIG( I ,d)=Z+RELF*SUM 
IF ( I  .  LT  .  18 . OR . I . GT . 46 )  GO  TO  805 
I  F  (  d . LE . 5  )  GO  TO  805 
I F ( J . GE . NJ4 )  GO  TO  805 

IF( PHIO . GT .- 1 . 0D-50. AND . PHIO . LT . 1 . 0D-50)  GO  TO  805 
PHIO  =  DABS( ( PHIG( I . J ) -PHI  0 ) /PHI  0 ) 

PHI =DMAX 1 ( PHIO , PHI ) 

805  CONTINUE 

827  F0RMAT(3I6,E12.6,3X,E12.6) 

300  CONTINUE 
SUM=0 . ODO 
DO  40  1=2. NIM 
11=1-1 

H  =  HX ( I )+HX ( I  1 ) 

40  SUM=SUM+H*PHIG( I ,NUM) 

H=HX ( 1 ) +HX (NIM) 

SUM=SUM+PHIG( 1 ,NdM)*H 
SUM=SUM*DNI 3 
DO  45  1=1, NI 
45  PHIG( I , NJ ) =SUM 

I F ( K . EO . 1 )  GO  TO  1000 
I F ( PHI . LT . XTOL )  GO  TO  1505 
10O0  CONTINUE 
1505  CONTINUE 

WR I TE ( 7 , 1049)  K.PHI 

1049  FORMAT (  '  HELM.  K= '  , I  5 , 4X . E 1 2 . 6 ) 

610  FORMAT( IX, 8(  1X.E12.6)) 

600  FORMAT (8(2X,E12.6)) 

RETURN 

END 

SUBROUTINE  FPLOT ( Z . NIU , NUU . I  FLAG ) 

REAL*8  Z(NIU.NUU) 

PLOTS  FIELDS  IN  2  SECTIONS;  ONE  OVER  THE  NON-UNIFORM  PORTION 
OF  THE  GRID  AND  ONE  INCLUDING  THE  UNIFORM  PORTION  OF  THE 
GRID. 

DIMENSION  F ( 92 , 45  ) 

DIMENSION  CVAL 1 ( 19)  ,CVAL2(  19)  ,V0P(8)  , I0P(8) 

CONTOUR  VALUES  FOR  HEIGHT  AND  THICKNESS  FIELDS. 

DATA  CVAL 1/540.0. 480.0. 420.0, 360.0, 300.0, 240.0, 180.0, 

1  120.0,60.0,0.0. -60.0.-120.0,-180.0. -240.0. -300.0, 

2  -360.0,-420.0.-480.0,-540.0/ 

CONTOUR  VALUES  FOR  OMEGA  FIELD. 

DATA  CVAL2/3.6,3.2,2.8,2.4,2.0, 1.6, 1.2, .8, .4,0.0, 

1  -.4. -.8, -1.2. -1.6, -2. 0,-2. 4, -2. 8. -3. 2, -3. 6/ 

DATA  VOP/O. 0.0. 0.0. 0.0.0. -1 .0,0. 0,0. 0,0.0/ 

IOP(  1  )=  1 
IOP ( 2  )  =  1 
IOP ( 3  )  =0 


’ 
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328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 
34  1 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

END  OF  FILE 


C 

c 

c 


c 

c 

c 


I  OP ( 4  )  =  1 
I  OP ( 6  )  =0 
I OP (  7  )  =  1 
I OP ( 8  )  =0 
I  OP ( 5  )  =  I  FLAG 
NC=  19 

CALL  0RIGIN(999,6.5,3.5, 1 .0, 1 .0) 

PLOT  VARIABLE  PORTION 

DO  100  0=1,45 
DO  100  1=1,92 
100  F( I , J)=Z( I . J) 

I F ( I  FLAG . EO.O)  CALL  C0NTUR(5 . 5 , 2 . 75 , F .92 , 92 , 45 , CVAL2 , NC , I OP . VOP ) 
IF ( I  FLAG . EO.  1 )  CALL  CONTUR( 5 . 5 , 2 . 75 , F , 92 . 92 , 45.CVAL 1 , NC , IOP, VOP) 
CALL  0RIGIN(999,6.5,3.5, 1 .0, 1 .0) 

PLOT  UNIFORM  PORTION 

DO  150  J=  1,45 
DO  150  1=92 , 183 
I  1  =  1-91 

150  F ( I  1 , J)=Z( I . J) 

I F ( I  FLAG. EO.O)  CALL  CONTUR ( 5 . 5 , 2 . 75 , F , 92 , 92 , 45 , CVAL2 , NC , IOP, VOP) 
I F ( I  FLAG . EO.  1 )  CALL  CONTUR (5 .5,2. 75 , F , 92 , 92 . 45 , CVAL 1 , NC , IOP , VOP) 
RETURN 
END 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


FILE:  D I  AG 

FILES 

OBJECT  -  D I  AG 
INPUT 

1  =  F  ED I  AG 

2  =  SPDIAG 

3  =  VMESH 

4  =  MESHD 

5  =  SPECD 

OUTPUT 

6  =  ENERGIES  AND  ENSTROPHY 

7  =  ERRORS  IN  MAP  FORM 

8  =  MEAN  ERRORS  AND  SI  SCORES 

9  =  -PDIAG 

COMPUTES  DIAGNOSTIC  VALUES  FROM  THE  SPECTRAL  AND  FEM  FORECASTS 
THESE  VALUES  INCLUDE: 

KINETIC  ENERGIES 

AVAILABLE  POTENTIAL  ENERGIES 

POTENTIAL  ENSTROPHYS 

MEAN  DIFFERENCE  BETWEEN  SOLUTIONS 

MEAN  ABSOLUTE  DIFFERENCE  BETWEEN  SOLUTIONS 

SI  SCORES 


USES  SYSTEM  ROUTINES  TO  PLOT  GRAPHS  OF  THESE  VALUES. 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


DIMENSION 

DIMENSION 

DIMENSION 


IMPLICIT  REAL*8  (A-H.O-Z) 

DIMENSION  XCSP(63,27)  fTASP( 63,27 ) ,XCFE( 63,27 ) ,TAFE( 63, 27) 

XCSPO(63,27) ,TASPO( 63,27 ) ,XCFEO( 63,27 ) ,TAFEO( 63. 27) 
X(281),Y(45),XI(63),YI(27) 

HX 1 (63  )  , HY 1(27) 

APE (9)  ,EKE(9) ,T0T(9) ,PE(9) 

APEF(9) ,EKEF(9) ,T0TF(9),PEF(9) 

DEXC(9)  ,ADEXC(9) ,DETA(9) ,ADETA(9) 

S1XC(9) , S 1 TA ( 9 ) 

REAL  ZZ(  1  1 .9)  ,T( 1 1 ) 

DIMENSION  ZKESP ( 9  )  , EKESP(9) . ZAPESP(9) , EAPESP(9) 

ZKEFE(9)  , EKEFE(9)  , ZAPEFE ( 9 ) , EAPEFE ( 9 ) 

APET ( 9  )  ,  APETF(9)  ,EKET(9) ,EKETF(9) 

T0TT(9)  ,T0TTF(9) ,PET(9) ,PETF(9) 

REAL  TI  1(3)  ,TI2(4)  ,TI3(2)  ,TI4(5) 

LOGICAL* 1  LFMT ( 1 )  /'*'/ 

DATA  T/0.0,6 .0. 12.0,18.0,24.0,30.0,36.0,42.0,48.0,0.0,0.0/ 
DATA  TI l/'ENER' , 'GY  '.'(d)  '/ 

DATA  T I  2/ ' ENST ' ,  ' ROPH '  ,  ' Y ( KG ' 

DATA  T 1 3/ ' S 1  S' .  'CORE'/ 

DATA  T 1 4/ ' MEAN '  ,  '  DIF',  'FERE' 

COMMON  /  HXMESH  /  HX(63) 

COMMON  /  HYMESH  /  HY(27) 

COMMON  /  WKS1D1  /  WK1(63) 

COMMON  /  WKS1D2  /  WK2(63) 

COMMON  /  WKS1D3  /  WK3(63) 

COMMON  /  WKS1D4  /  WK4(63) 

COMMON  /  WKS1D5  /  WK5(63) 

COMMON  /  WKS1D6  /  WK6(63) 

COMMON  /  WKS1D7  /  WK7(63) 

COMMON  /  WKS1D8  /  WK8(63) 

COMMON  /  WKS1D9  /  WK9(63) 

COMMON  /  WKS110  /  WK 10(63) 

COMMON  /  WORKA  /  WKA(63,27) 


S  )'/ 


'  NCE 


(M)  '/ 
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COMMON 

/ 

WORKB 

/ 

WKB ( 63 , 27 ) 

COMMON 

/ 

WORKC 

/ 

WKC (63,27) 

COMMON 

/ 

WORKD 

/ 

WKD ( 63 . 27 ) 

COMMON 

/ 

WORKE 

/ 

WKE (63,27) 

COMMON 

/ 

WORKF 

/ 

WKF (63,27) 

C 

C  SET  CONSTANTS 
C 

c 

C  CXCI=L*L*F0*F0/G 
C 

CXCI =2 . 1 5357266D4 

CPE  =  2 . 0D0*  FO*  FO/ (DP*DP*SIG) 

CPE=3 . 0382098D- 12 
CEKE  =  2 .  1 383390D22 
CAPE  =6 . 4967228D  10 
CCPE  = 1 . 069 1695E22 

READ  PARAMETERS  OF  GRID. 

RE AD ( 4 , LFMT  )  NIU.NJU 
READ(4,LFMT)  NI.NJ 
RE AD ( 3 , LFMT ) ( X ( I ) , 1=1 .NIU) 

READ(3, LFMT )(Y(J) ,  J  =  1 , NJU ) 

READ(3.LFMT ) ( XI ( I ) , 1=1 ,NI ) 

READ(3,LFMT )  (  Y I  (  J ) ,  J=  1 , NJ ) 

NIP=NI 
NdP=NJ 

CALCULATE  GRID  LENGTHS. 

CALL  CALH( HX 1 , X I ,NIP) 

CALL  CALH(HY 1 , YI , NJP ) 

NJPM=NJP- 1 
NIPM=NIP- 1 
HXI(NIP) =HX 1 ( NI PM ) 

HY1(NJP)=HY1( N JPM ) 

NI M  =  NI -  1 
N JM=N J- 1 
DO  60  1=1 .NIP 
60  HX ( I ) =HX 1(1) 

DO  65  J= 1 , NJP 
65  HY ( J ) =HY 1 ( J ) 

READ  INITIAL  AMPLITUDES 

READ( 5 , LFMT )  XI  .X2.X3.T 1 ,T2,T3 

N  =  NO.  OF  WAVES.  M  =  NO. 'OF  TIME  STEPS 
DT  =  TIMESTEP.  IPT2  =  NO.  OF  HOURS  BETWEEN  MAPS 

READ ( 5 , LFMT )  N.M.DT.IDT2 

CALCULATE  NO.  OF  RECORDS  ON  FILE 

NR= ( M- 1 ) /IDT2+ 1 

SET  BOUNDARIES  OF  COMPARISON  GRID(S) 

I L 1 =23 
I R  1  =40 
JT  1=18 
JB  1  =  10 
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MAIN  LOOP 

H=HX ( 30 ) 

DO  1000  11=1, NR 
S 1 XC ( 1 1 ) =0 . 0D0 
S1TA( II ) =0 . 0D0 

READ  SPECTRAL  FIELDS 

READ( 2  )  XCSP 
RE AD ( 2  )  TASP 

READ  FEM  FIELDS. 

READ (  1  )  XCFE 
RE AD (  1  )  TAFE 
I F ( II .NE . 1 )  GO  TO  200 
DO  180  d= 1 ,Nd 
DO  180  I  =- 1  ,  N I 
XCSPO( I , d ) =XCSP( I ,d) 

TASPO( I ,d)=TASP( I , d ) 

XCF  E0( I ,d)  =  XCFE( I ,d) 

TAF  E0( I , d ) =TAF  E ( I , J) 

180  CONTINUE 
200  CONTINUE 

CALCULATE  ENERGIES  AND  ENSTROPHI ES . 

CALL  APOTEN(APE( II ) , IL1 , IR1 , dT 1 . dB 1 .TASP.NI , Nd , 

1  H. APET( II ) , 1 ) 

CALL  APOTEN( APEF ( 1 1 ) , I L 1 , I R 1 , dT 1 , dB 1 , TAFE , NI , Nd , 

1  H,APETF( II ) . 1 ) 

CALL  EKINEN( XCSP. TASP.NI ,Nd,H,EKE( II ) . I L 1 . I R 1 , dT 1 , 

1  dB  1  , EKET( II  )  , 1 ) 

CALL  EK INEN( XCFE, TAFE ,NI . Nd . H . EKEF(II ) . I L 1 , I R 1 , dT 1 , 
1  dB 1 , EKETF ( I J ) , 1 ) 

CALL  POTENS (XCSP. TASP.NI ,Nd,H,PE(II ) . I L 1 , I R 1 . dT 1 . 

1  dB 1 , CPE , PET( II  )  , 1 ) 

CALL  POTENS (XCFE .TAFE ,NI ,Nd.H, PEF( II ) , I L 1 , I R 1 , dT 1 , 

1  dB 1,CPE,PETF(II),1) 

PE ( 1 1  )  =PE ( 1 1  )  *CCPE 
APE( 1 1 ) = APE ( 1 1 ) *CAPE 
EKE(II  )  =EKE  (  1 1  )  *CEKE 
TOT( II  )=APE( II  )  +  EKE( II  ) 

PEF( II  )=PEF( II  )*CCPE 
APEF(  II  )=APEF( II )*CAPE 
EKE F (II  )  =EKEF (II  )*CEKE 
TOTF ( 1 1  )=APEF( II  )+EKEF ( II  ) 

PET( II  )  =PET ( 1 1  )  *CCPE 
APET( II  )=APET(II  )  *CAPE 
EKET( II  )=EKET( II )*CEKE 
TOTT( II  )=APET( II )  +  EKET( II ) 

PETF(  II  )=PETF( II  )*CCPE 
APETF( II  )=APETF( II  )  *CAPE 
EKETF ( II  )  =  EKETF( II )  *CEKE 
TOTTF (II  )=APETF( II )+EKETF( II ) 

IF(II.EO.I)  GO  TO  1001 

CALCULATE  DIFFERENCE  IN  LAST  ( 1 1  -  1  )  OUTPUTS 

TRUE  DIFF.  FOR  XCI  FIELD 

CALL  GDADGD( WKA , 1 .ODO.XCSP, -1 . ODO . XCSPO . NI .Nd) 

FORECAST  DIFF.  FOR  XCI  FIELD 
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CALL  GDADGD ( WKB ,  1 . 0D0, XCFE , -  1 . 0D0, XCFEO, NI , NJ ) 

FIND  ERROR  IN  FORECAST. 

CALL  GDADGD ( WKC ,  1  . ODO, WKA , -  1  . ODO , WKB , NI . Nd) 

CALL  ME AN( WKC , NI , Nd , DEXC ( II ) , I L 1 . IR 1 , dT 1 . dB 1 ) 
CALL  A ME AN ( WKC , NI , Nd ,ADEXC( II ) , I L 1 . I R 1 , dT 1 , dB 1 ) 

CALCULATE  DIFFERENCE  IN  LAST  (  1 1  -  1  )  OUTPUTS 

TRUE  DIFF.  FOR  TAU  FIELD. 

CALL  GDADGD (WKA, 1 .ODO.TASP, -1 . ODO , T ASPO , NI , Nd ) 

FORECAST  DIFF.  FOR  TAU  FIELD. 

CALL  GDADGD ( WKB , 1 .0D0.TAFE.-1 . ODO , T AF EO , NI . Nd ) 

FIND  ERROR  IN  FORECAST. 

CALL  GDADGD ( WKC , 1 .ODO, WKA, -1 .ODO, WKB. NI . Nd ) 

CALL  ME AN( WKC , NI , Nd . DETA ( 1 1 ) , I L 1 , I R 1 , dT 1 , dB 1 ) 
CALL  AME AN( WKC , NI , Nd ,ADETA(II ) , I L 1 , I R 1 , dT 1 , dB 1 ) 

CALCULATE  SI  SCORES 


FOR  XCI 

CALL  DXD YDS ( WKB , XCSP ,  1 .ODO.  .TRUE .  .  .  FALSE .  ,NI ,Nd) 
CALL  PSOLVE ( WKA , WKB , NI . Nd ,  .TRUE.  .  .FALSE. ,  .FALSE.  ) 
CALL  DXD YDS ( WKC , XCSP , 1 .ODO, .FALSE. , .TRUE. .NI.Nd) 
CALL  PSOLVE ( WKB , WKC, NI , Nd ,  . FALSE .  ,  . TRUE .  ,  .  FALSE .  ) 
CALL  DXD YDS (WKD, XCFE, 1 .ODO,  .TRUE  ...  FALSE ., NI , Nd ) 
CALL  PSOLVE ( WKC , WKD , NI , Nd ,  .TRUE.  ,  .FALSE. ,  .FALSE.  ) 
CALL  DXDYDS(WKE .XCFE .  1 .ODO.  . FALSE  .  .  .TRUE ..NI.Nd) 
CALL  PSOLVE ( WKD . WKE , NI .Nd.  . FALSE .  ,  .TRUE .  .  . FALSE .  ) 

ERROR  IN  X-PRESS.  GRAD  -  WKE 

CALL  GDADGD( WKE , 1 .0D0.WKC.-1 .ODO, WKA, NI ,Nd) 


ERROR  IN  Y-PRESS.  GRAD  -  WKF 


CALL  GDADGD  (WKF,  1  .  ODO^,  WKD  ,  -  1  .  ODO ,  WKB  ,  NI  ,  Nd ) 
FORM  SUM  OF  ABS .  OF  ERRORS 


CALL  SUM( WKE , NI .Nd.SUMI , I L 1 . I R 1 , dT 1 . dB 1 ) 

CALL  SUM( WKF , NI , Nd , SUM2 , IL1 , I R 1 , dT 1 , dB 1 ) 
SUM3=SUM 1+SUM2 

CALL  SUMB ( WKC , WKA .NI.Nd, SUM  1 . I L 1 , I R 1 , dT 1 . dB 1 ) 
CALL  SUMB (WKD, WKB, NI , Nd , SUM2 , I L 1 , I R 1 . dT 1 , dB 1 ) 
SUM4=SUM 1 +SUM2 

IF(DABS(SUM4) .LT. 1 .00-50)  GO  TO  435 
S1XC(II ) = 100 . 0D0*SUM3/ SUM4 


CALCULATE  SI  SCORE  FOR  TAU. 


435  CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


DXDYDS ( WKB , TASP , 1 .ODO, .TRUE. . .FALSE. .NI.Nd) 
PSOLVE (WKA. WKB. NI . Nd ,  .TRUE. ,  .FALSE.  .  .FALSE.  ) 
DXDYDS (WKC, TASP, 1 .ODO,  .FALSE.  ,  .TRUE. .NI.Nd) 
PSOLVE ( WKB , WKC , NI , Nd ,  .FALSE.  ,  .TRUE.  ,  .FALSE.  ) 
DXDYDS (WKD, TAPE, 1 .ODO, .TRUE . . . FALSE ..NI.Nd) 
PSOLVE (WKC. WKD. NI , Nd . .TRUE. , .FALSE. . .FALSE. ) 
DXDYDS(WKE.TAFE, 1 .ODO. .FALSE. . .TRUE. .NI.Nd) 
PSOLVE (WKD. WKE, NI.Nd.  .FALSE.  .  .TRUE.  ,  .FALSE.  ) 
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ERROR  IN  X-PRESS.  GRAD  -  WKE 

CALL  GDADGD ( WKE , 1  .ODO. WKC, -  1  ODO, WKA .NI . Nd ) 

ERROR  IN  Y-PRESS.  GRAD  -  WKF 

CALL  GDADGD (WKF, 1 .ODO.WKD, -1  . ODO.WKB.NI ,NJ) 

FORM  SUM  OF  ABS .  OF  ERRORS 

CALL  SUM ( WKE, N I , NJ , SUM  1 , I L 1 , I R 1 . JT 1 , JB 1 ) 

CALL  SUM( WKF , NI .NJ.SUM2, IL1 . I R 1 . JT 1 , JB 1 ) 

SUM 3  =  SUM  1 +SUM2 

CALL  SUMB ( WKC , WKA , NI ,NJ,SUM1 , I L 1 , I R 1 , JT 1 , JB 1 ) 
CALL  SUMB ( WKD , WKB , NI , NJ , SUM2 , I L 1 , I R 1 , JT 1 , JB 1 ) 
SUM4=SUM1+SUM2 

IF(DABS(SUM4) . LT. 1 .0D-50)  GO  TO  436 
S1TA( II ) = 100 . ODO* SUM 3/ SUM4 
436  CONTINUE 
1001  CONTINUE 

CALCULATE  ZONAL  AND  EDDY  ENERGIES. 

CALL  ZEENE(XCSP,TASP,NI . NJ , JT 1 , JB 1 , I L 1 , I R 1 , H , 
1  ZKESP ( 1 1  )  , EKESP ( 1 1 ) . ZAPESP ( 1 1 ) , EAPESP( 1 1 ) ) 
CALL  ZEENE(XCFE,TAFE,NI , N J , JT 1 , JB 1 , IL1 , IR1 ,H, 
1  ZKEFE(  II  )  ,  EKEFE( II  )  , ZAPEFE( 1 1 ) , EAPEFEC II ) ) 
10O0  CONTINUE 

INITIALIZE  PLOTTING  PROGRAM. 

CALL  PLOTS 

CALL  ORGEP( 1 .0, 1 .0, 1 .0) 

PLOT  ENERGIES 

DO  650  I T= 1 , NR 
ZZ( IT. 1  )=EKE( IT) 

ZZ(IT,2)=EKEF(IT) 

ZZ( IT, 3)=APE( IT ) 

ZZ( IT, 4  )  = APEF ( IT ) 

ZZ( I T , 5 ) =TOT (IT) 

ZZ( IT,6)=T0TF(IT) 

650  CONTINUE 

CALL  LPLOT( ZZ,T, NR +2 ,6,3.0,3.0,TI 1,3) 

PLOT  KINETIC  ENERGIES. 

DO  690  I T  = 1 , NR 
ZZ ( I T ,  1  )  =  EKE(IT) 

ZZ( IT, 2)=EKEF( IT ) 

ZZ( IT , 3 ) =ZKESP( IT) *CEKE 
ZZ( IT.4)=ZKEFE( IT)*CEKE 
ZZ( IT,5)=EKESP( IT ) *CEKE 
ZZ( IT ,6)=EKEFE( IT )*CEKE 
690  CONTINUE 

CALL  LPLOT(ZZ,T, NR+2 ,6,3.0,3.0,TI  1.3) 

PLOT  POTENTIAL  ENERGIES. 

DO  695  IT= 1 , NR 
ZZ( IT.  1  )=APE( IT) 

ZZ(IT,2)=APEF(IT) 

ZZ(IT,3)=ZAPESP( IT) *CAPE 
ZZ( IT , 4  )  =  ZAPEFE ( IT)*CAPE 
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ZZ( IT,5)=EAPESP( IT) *CAPE 
ZZ( IT .6)=EAPEFE( IT)*CAPE 
695  CONTINUE 

CALL  LPL0T(ZZ,T,NR  +  2,6,3.0,3.0,TI  1 ,3) 

PLOT  ENSTR0PHY 

DO  655  I T  = 1 , NR 
ZZ( IT.  1  )=PE( IT) 

ZZ( IT, 2)=PEF( IT) 

655  CONTINUE 

CALL  LPLOT ( ZZ . T , NR+2 ,2,3.0,3.0.TI2.4) 

PLOT  SI  SCORES 

DO  660  I T= 1 , NR 
ZZ( IT.  1  )=S1XC( IT) 

ZZ( IT,2)=S1TA( IT) 

660  CONTINUE 

CALL  LPLOT(ZZ,T, NR+2 ,2.3.0,3.0,TI3,2) 

PLOT  MEAN  ENERGIES 

DO  665  I T= 1 , NR 
ZZ( IT.  1  )=DEXC( IT)*CXCI 
ZZ( IT  ,2  )=ADEXC( IT)*CXCI 
ZZ( IT, 3)=DETA( IT)*CXCI 
ZZ( IT,4)=ADETA( IT)*CXCI 
665  CONTINUE 

CALL  LPLOT(ZZ,T, NR+2 ,4,3.0,3.0,TI4,5) 

PLOT  TOTALS 

DO  830  IT- 1 , NR 
ZZ( IT,  1  )  =  EKET ( IT) 

ZZ( IT,2)=EKETF( IT ) 

ZZ( IT, 3)=APET( IT ) 

ZZ( IT , 4 ) =APETF ( IT  ) 

ZZ( I T , 5  )  =  TOTT (IT) 

ZZ( I T , 6 ) =TOTTF (IT) 

830  CONTINUE 

CALL  LPLOT (ZZ,T, NR+2 .6, 3 .0, 3 .0. T I  1.3) 

DO  840  I T= 1 , NR 
ZZ( IT ,  1  )=PET( IT) 

ZZ( IT,2)=PETF(IT) 

840  CONTINUE 

CALL  LPLOT(ZZ,T, NR+2 ,2,3.0,3.0,TI2,4) 

CALL  PL0T(0. 0.0. 0,999) 

STOP 

END 

SUBROUTINE  F INT ( F , NI . Nd , H , SUM , I L , I R , JT , JB ) 
IMPLICIT  REAL*8  (A-H.O-Z) 

DIMENSION  F ( NI , Nd ) 

PERFORMS  INTEGRATION  OF  F  OVER  THE  SQUARE 
I L<=X<= I R  ;  dB<=Y<=dT 

ASSUMING  A  UNIFORM  MESH  LENGTH  H  IN  BOTH  DIRECTIONS. 


SUM=0 . O 

DO  EDGES. 

I L  1  =  I L+ 1 
IR 1 =IR- 1 

DO  300  I  =  I L  1  , IR1 
300  SUM=SUM+F ( I . dT ) 
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DO  310  I = I L 1 , I R 1 
310  SUM=SUM+F( I  ,  JB) 

JT  1  = JT-  1 
JB 1 =  JB  +  1 

DO  320  J  =  JB 1 , JT  1 
320  SUM=SUM+F ( I L , J )+F ( I R  ,  J  ) 

SUM=SUM* . 50D0 

DO  CORNERS. 

SUM 1=F(IL,JT)+F(IR,JT)+F(IL,JB)+F(IR,JB) 
SUM=SUM+ . 25DO*SUM 1 

DO  INTERIOR. 


SUM  1=0.0 
DO  350  J= JB 1 , JT 1 
DO  350  I=IL1,IR1 
350  SUM  1 =SUM 1 +F ( I . J) 
SUM=SUM1+SUM 


SUM=SUM*H*H 

RETURN 

END 

SUBROUTINE  EK I NEN( XCSP , TASP , NI , NJ , H , EKE , IL1 
1  JT 1 ,JB1 ,EKET, IFLAG) 

IMPLICIT  REAL*8  (A-H.O-Z) 

DIMENSION  XCSP (63, 27  ), TASP (63, 27) 

COMMON  /  HXMESH  /  HX(63) 

COMMON  /  HYMESH  /  HY(27) 

COMMON  /  WKS1D1  /  WK1(63) 

COMMON  /  WKS1D2  /  WK2(63) 

COMMON  /  WKS1D3  /  WK3(63) 

COMMON  /  WKS1D4  /  WK4(63) 

COMMON  /  WKS1D5  /  WK5(63) 

COMMON  /  WKS1D6  /  WK6(63) 

COMMON  /  WKS1D7  /  WK7(63) 

COMMON  /  WKS1D8  /  WK8(63) 

COMMON  /  WKS1D9  /  WK9(63) 

COMMON  /  WKS110  /  WK10(63) 

COMMON  /  WORKA  /  WKA(63,27) 

COMMON  /  WORKB  /  WKB(63,27) 

COMMON  /  WORKC  /  WKC(63,27) 

COMMON  /  WORKD  /  WKD(63,27) 


I R  1  . 


FIND  KINETIC  ENERGY. 

CALL  DXDYDS(WKA,XCSP, 1 .ODO, .TRUE. . .FALSE. ,NI , NJ ) 
CALL  PSOLVE ( WKB , WKA , NI , NJ ,  TRUE.  ,  .FALSE.  ,  .FALSE.  ) 
CALL  NLLOOP ( WKA , WKB , WKB , NI , NJ ) 

CALL  PSOLVE ( WKD , WKA , NI ,NJ,  . TRUE .  ,  . TRUE .  ,  . FALSE .  ) 
CALL  DXDYDS( WKA, XCSP. 1 .ODO, .FALSE . . .TRUE . ,NI . N J ) 
CALL  PSOLVE ( WKB , WKA ,NI , NJ ,  . FALSE .  ,  . TRUE  ...  FALSE .  ) 
CALL  NLLOOP( WKA , WKB , WKB , NI , NJ ) 

CALL  PSOLVE ( WKC , WKA , NI , N J ,  . TRUE .  .  . TRUE  ...  FALSE .  ) 
CALL  GDADGD( WKD , 1 .ODO, WKD, 1 .ODO, WKC, NI , N J ) 

CALL  DXDYDS( WKA. TASP. 1 .ODO. .TRUE . , . FALSE . ,NI , NJ ) 
CALL  PSOLVE (WKB, WKA, NI , N J ,  .TRUE.  .  .FALSE.  ,  .FALSE.  ) 
CALL  NLLOOP ( WKA , WKB . WKB , NI , N J ) 

CALL  PSOLVE (WKC, WKA. NI , N J ,  .TRUE. ,  .TRUE.  ,  .FALSE.  ) 
CALL  GDADGD ( WKD , 1 .ODO, WKD, 1 .ODO, WKC. NI , N J ) 

CALL  DXD YDS (WKA, TASP,  1 .ODO,  .FALSE  .  .  .TRUE .  ,NI , N J ) 
CALL  PSOLVE (WKB, WKA, NI , N J ,  .FALSE.  ,  .TRUE.  ,  .FALSE.  ) 
CALL  NLLOOP ( WKA , WKB , WKB , NI , NJ ) 

CALL  PSOLVE ( WKC , WKA , NI , NJ , .TRUE. , .TRUE. , .FALSE. ) 
CALL  GDADGD ( WKD , 1 .ODO, WKD. 1 .ODO, WKC, NI , N J ) 

CALL  F INT ( WKD , NI .NJ.H.EKE, I L 1 . I R 1 , JT 1 . JB 1 ) 
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IF( I  FLAG . E0 .  1 )  CALL  T I  NT ( WKD , EKET , NI , NJ ) 

RETURN 

END 

SUBROUTINE  POTENS ( XCSP , TASP . NI , NJ . H , PE , I L 1 , I R 1 
1  JT 1 ,JB1 , CPE, PET, I  FLAG ) 

IMPLICIT  REAL*8  (A-H.O-Z) 

DIMENSION  XCSP ( NI , NJ ) ,TASP(NI , N J ) 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


HXMESH 
HYMESH 
WKS1D1 
WKS1D2 
WKS1D3 
WKS1D4 
WKS  105 
WKS1D6 
WKS 1D7 
WKS 108 
WKS 1D9 
WKS  1  10 
WORKA  / 
WORKB  / 
WORKC  / 
WORKD  / 


/  HX ( 63 ) 

/  HY ( 27 ) 

/  WK 1(63) 

/  WK2 (63 ) 

/  WK3 ( 63 ) 

/  WK4 ( 63 ) 

/  WK5 ( 63 ) 

/  WK6 ( 63 ) 

/  WK7 (63 ) 

/  WK8 ( 63  ) 

/  WK9 ( 63  ) 

/  WK 10(63) 
WKA (63 , 27  ) 
WKB(63, 27) 
WKC (63 , 27  ) 
WKD ( 63 , 27 ) 


FORM  LAPLACE  OF  XCI 

CALL  D2X YS ( WKA , XCSP , 1 .000,  .TRUE. ,  .FALSE.  ,NI,NJ) 
CALL  PSOLVE ( WKB , WKA , NI , NJ , .TRUE. , .FALSE. , .TRUE. ) 
CALL  D2XYS( WKA, XCSP. 1 .ODO, .FALSE. , .TRUE. ,NI,NJ) 
CALL  PSOLVE (WKC, WKA, NI ,NJ, .FALSE. . .TRUE. , .TRUE. ) 
CALL  GDADGD ( WKD , 1 .000, WKB, 1 .000, WKC, NI , N J ) 


FORM  LAPLACE  OF  TAU 


CALL  D2XYS( WKA, TASP, 1 .ODO, .TRUE. , .FALSE. ,NI ,NJ) 
CALL  PSOLVE (WKB. WKA, NI , N J , .TRUE. , .FALSE. , .TRUE. ) 
CALL  D2XYS( WKA .TASP. 1 .ODO, .FALSE ., . TRUE . ,NI ,NJ) 
CALL  PSOLVE (WKC, WKA ,NI , N J ,  . FALSE .  ,  .TRUE .  ,  .TRUE .  ) 
CALL  GDADGD (WKC, 1 .000. WKC. 1 .ODO.WKB.NI . N J ) 

DO  SUMS. 

CALL  GDADGD( WKA , 1 . ODO , WKD . 1 .ODO, WKC, NI , N J ) 

CALL  GDADGD ( WKA , 1 . ODO , WKA , -CPE , TASP . NI , N J ) 

CALL  GDADGD( WKB , 1 . ODO, WKD, -1 . ODO . WKC , NI , NJ ) 

CALL  GDADGD ( WKB , 1 . ODO , WKB . CPE . TASP , NI , N J ) 

FORM  SQUARES. 

CALL  NLLOOP ( WKC , WKA , WKA , NI , NJ ) 

CALL  PSOLVE ( WKA . WKC ,NI , N J ,  . TRUE .  ,  . TRUE  ...  FALSE .  ) 
CALL  NLLOOP ( WKC , WKB , WKB , NI , NJ ) 

CALL  PSOLVE ( WKB , WKC , NI , N J ,  .TRUE .  ,  .TRUE  ...  FALSE .  ) 
FORM  SUM. 

CALL  GDADGD (WKC, 1 .ODO, WKA. 1 .ODO.WKB.NI . N J ) 


INTEGRATE . 

CALL  F I NT ( WKC , NI . NJ , H . PE , I L 1 . I R 1 . JT 1 . JB 1 ) 

I F ( I  FLAG . EQ .  1 )  CALL  T INT ( WKC . PET , NI , NJ ) 

RETURN 

END 

SUBROUTINE  MEAN( F I E , NI .NJ.AVE, IL. IR, JT, JB) 
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FIND  ARITHMETIC  MEAN  OF  FIELD. 

IMPLICIT  REAL+8  (A-H.O-Z) 

DIMENSION  F I E ( N I , Nd ) 

SUM=0 . ODO 
I SUM=0 

DO  100  d=dB,dT 
DO  100  I = I L , I R 
I SUM  = I SUM+ 1 
100  SUM=SUM+F I E ( I . J) 

A VE= SUM/D FLO AT ( ISUM) 

RETURN 

END 

SUBROUTINE  AME AN( F I E , NI ,NJ,AVE, IL, IR.dT.dB) 

FINDS  ARITHMETIC  MEAN  OF  ABSOLUTE  VALUE  OF  FIELD 

IMPLICIT  REAL*8  (A-H.O-Z) 

DIMENSION  FIE(NI.Nd) 

SUM=0 . ODO 
I SUM=0 

DO  100  d=dB.dT 
DO  100  I = I L , I R 
I SUM= I SUM+ 1 

100  SUM=SUM+DABS(FIE( I ,d) ) 

AVE=SUM/DFLOAT( ISUM) 

RETURN 

END 

SUBROUTINE  SUM( F I E . NI . Nd , SUM1 . IL . IR . JT . JB ) 

IMPLICIT  REAL*8  (A-H.O-Z) 

DIMENSION  F I E ( NI . Nd ) 

SUM  1 =0 . ODO 
DO  100  d=dB , dT 
DO  100  I = I L , I R 
100  SUM1=SUM1+DABS(FIE( I , J) ) 

RETURN 

END 

SUBROUTINE  SUMB(FIE 1 . FIE2 ,NI , Nd , SUM  1 , I L . IR , dT . dB ) 
IMPLICIT  REAL*8  (A-H.O-Z) 

DIMENSION  FIE  1 (NI .Nd) , FIE2(NI , Nd ) 

SUM  1=0. ODO 
DO  100  d=dB,dT 
DO  100  I = I L , I R 
F 1=DABS(FIE1( I ,d) ) 

F2=DABS ( F I E2 ( I , d ) ) 

100  SUM  1 =  SUM  1 +DMAX 1 ( F 1 , F2 ) 

RETURN 

END 

SUBROUTINE  LPLOT ( PL . T , NT . I F LAG , XS I ZE . YS I ZE . T I TLE . NTI TLE ) 
DIMENSION  PL(NT,6),T(NT),SCA(4) 

REAL  TITLE(NTITLE) 

NUM  =  4  *NT I TLE 
NT2=NT-2 
NT  1 =NT- 1 

SCALE  HORIZONTAL  AXIS 

CALL  SCALE(T,XSIZE, NT 2 , 1 ) 

SCALE  VERTICAL  AXIS 

XZ  1=XSIZE+ . 8 
YZ 1 =YSI ZE+ . 8 

CALL  0RIGIN(999.XZ1 . YZ1 . 1 .0. 1 .0) 

SC=0.0 
0R= 1 . OE55 
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DO  100  1  =  1,1  FLAG 

DO  100  J= 1 , NT 2 

SC  =  AMAX 1 ( SC, PL(d, I  )  ) 

0R=AMIN1(0R,PL(d, I  )  ) 
lOO  CONTINUE 
SCA (  1  )  =0R 
SCA ( 2  )  =SC 

CALL  SCALE(SCA, YSIZE.2. 1 ) 

DO  125  1  =  1. I  FLAG 
PL ( NT , I ) =SCA ( 4  ) 

125  PL(NT1 . I )=SCA(3) 

PLOT  VERTICAL  AXIS 

CALL  AX2EP ( 1 .0.3, 2,0, .85) 

CALL  AXIS2(0. 0,0.0, TITLE , NUM , YS I ZE , 90 .0,SCA(3) ,SCA(4) , -1 .0) 

CALL  AXIS2(XSIZE.0.0, '  ' . 1 . - YS I ZE , 90 . 0 , SCA ( 3 ) , SCA ( 4 ) . 1 . 0 ) 

PLOT  HORIZONTAL  AXIS 

CALL  AX2EP( 1 .0,3, 1 ,0, .85) 

CALL  AX  I S2( 0.0, 0.0,  'TIME  (HOURS)  ' ,-12.XSIZE,0.0.T(NT1),T(NT),1.) 
CALL  AXIS2(0.0,YSIZE.  '  ' , -  1 , -XS I ZE , 0 . O , T ( NT  1 ) , T ( NT ) ,  1 .  ) 

PLOT  CURVES 

DO  150  1=1,1  FLAG 

CALL  LINE(T,PL( 1,1), NT 2, 1, 1,1) 

150  CONTINUE 
RETURN 
END 

SUBROUTINE  APOTEN( APE . I L 1 . I R 1 , JT 1 , JB 1 , F , NI . Nd , 

1  H. APET. IFLAG) 

IMPLICIT  REAL*8  (A-H.O-Z) 

DIMENSION  F(NI.Nd) 

COMMON  /  HXMESH  /  HX(63) 

COMMON  /  HYMESH  /  HY(27) 

COMMON  /  WORKA  /  WKA(63,27) 

COMMON  /  WORKB  /  WKB(63,27) 

CALL  NLLOOP ( WKA , F , F , NI , Nd ) 

CALL  PSOLVE ( WKB , WKA , NI , Nd , .TRUE. , .TRUE. , .FALSE. ) 

CALL  F INT ( WKB , NI .Nd.H.APE, I L 1 , I R 1 , dT 1 , dB 1 ) 

I F ( IFLAG. EO. 1 )  CALL  T INT ( WKB . APET , NI . Nd ) 

RETURN 

END 

SUBROUTINE  ZEENE ( F 1 , F2 . NI , Nd , dT . dB , I L , I R , H , ZKE , EKE , ZAPE , EAPE ) 

SUBROUTINE  TO  CALCULATE  ZONAL  AND  EDDY  ENERGIES. 

FI  =  XCI 
F  2  =  TAU 

IMPLICIT  REAL*8  (A-H.O-Z) 


DIMENSION  F 1 (NI , Nd ) . F2(NI , Nd ) 


COMMON 

/ 

HXMESH 

/ 

HX (63 ) 

COMMON 

/ 

HYMESH 

/ 

HY ( 27 ) 

COMMON 

/ 

WKS1D1 

/ 

WK 1 ( 63  ) 
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/ 
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/ 

WK2 ( 63 ) 
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/ 
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COMMON 

/ 

WORKB 

COMMON 

/ 

WORKC 

COMMON 

/ 

WORKD 

COMMON 

/ 

WORKE 

COMMON 

/ 

WORKF 

/  WKB ( 63 , 27 ) 
/  WKC (63 , 27 ) 
/  WKD (63,27) 
/  WKE ( 63 , 27 ) 
/  WKF (63,27) 


FORM  AVERAGE  IN  Y-DIRECTION . 


ANI =DF  LOAT ( IR-IL+1 ) 
DO  100  d= 1 ,Nd 
SUM=0 . ODO 
SUM  1 =0 . ODO 
DO  105  I  =  I  L  ,  I R 

105  SUM=SUM+F 1 ( I , J ) 

DO  106  I  =  I L ,  I R 

106  SUM  1 =  SUM 1 +  F2 ( I , d) 
SUM=  SUM/ ANI 

SUM  1 =SUM 1 /ANI 
DO  110  1=1 ,NI 
1 lO  WKE ( I , J ) =SUM 
DO  115  1=1 ,NI 
1 15  WKF ( I , d ) =SUM 1 
100  CONTINUE 


CALCULATE  ZKE 

CALL  EKINEN(WKE,WKF,NI , Nd.H.ZKE. IL, IR. 

1  dT , dB , SUM , 0 ) 

CALCULATE  ZAPE 

CALL  APOTEN(ZAPE, I L, IR.dT.dB.WKF.NI , Nd , 
1  H , SUM , 0 ) 

DO  140  d=1 ,Nd 
DO  140  1=1, NI 
WKE (I ,d)=F1(I ,d)-WKE(I ,d) 

WKF ( I , d  )  =F2 ( I , d ) -WKF ( I , d ) 

140  CONTINUE 

CALCULATE  EKE 

CALL  EKINEN(WKE . WKF ,NI .Nd.H.EKE, IL, IR, 

1  dT.dB.SUM.O) 

CALL  APOTEN(EAPE, I L, IR.dT.dB.WKF.NI ,Nd, 
1  H.SUM.O) 

RETURN 

END 

SUBROUTINE  T I  NT ( F , SUM , NI , Nd ) 

IMPLICIT  REAL*8  (A-H.O-Z) 

DIMENSION  F ( NI , Nd ) 

COMMON  /  HXMESH  /  HX ( 1 ) 

COMMON  /  HYMESH  /  HY(1) 

NdM=Nd- 1 
NIM  =  NI - 1 
SUM=0 . ODO 
DO  100  d=2 , NdM 
d1=d-1 

HYB= ( HY ( d 1 )+HY(d) )/2 .ODO 
DO  100  1=2, NIM 
11=1-1 

HXB= ( HX ( I  1 )+HX( I ) )/2 .ODO 
SUM=SUM+F( I , d ) *HYB*HXB 
100  CONTINUE 
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HYB=HY ( 1 )/2 .0D0 
HYB2=HY(NJM)/2 . 0D0 
DO  150  1=2, NIM 
11=1-1 

HXB  =  ( HX ( I  1 )+HX ( I ) )/2 .000 
SUM=SUM+F( I , 1 )*HYB*HXB 
SUM=SUM+F ( I , NU ) *HYB2*HXB 
150  CONTINUE 

ENDS 

HXB= ( HX (  1  )+HX(NIM) )/2 . 0D0 
DO  200  J=2 , NJM 
J1=J- 1 

HYB= ( HY ( J 1 ) +HY ( J ) )/2 . 0D0 
SUM=SUM+F( 1 , J)*HYB*HXB 
200  CONTINUE 

CORNERS 

HXB= ( HX ( 1 )+HX(NIM))/2.0D0 
SUM=SUM+F( 1 . 1 ) *HXB*HY ( 1 )/2 . 0D0 
SUM=SUM+F( 1 ,NJ)*HXB*HY(NUM)/2.0D0 
RETURN 
END 


. 


